Created
February 11, 2015 19:42
-
-
Save maximvl/9dc01789e88b26b59163 to your computer and use it in GitHub Desktop.
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
## defn main | |
.text | |
.globl main | |
main: | |
## frame 32 20 64 80 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $72,%esp | |
movl $2,%eax | |
movl %eax,32(%esp) | |
.data | |
___L__1: | |
.asciz "a" | |
.text | |
movl $___L__1,%eax | |
movl %eax,36(%esp) | |
movl _fdopen_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,_stderr | |
movl _gc__initialise,%eax | |
call *%eax | |
movl $0,%eax | |
movl $_symbols,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__2: | |
.asciz "t" | |
.text | |
movl $___L__2,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__t | |
.data | |
___L__3: | |
.asciz "." | |
.text | |
movl $___L__3,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__dot | |
.data | |
___L__4: | |
.asciz "set" | |
.text | |
movl $___L__4,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__set | |
.data | |
___L__5: | |
.asciz "lambda" | |
.text | |
movl $___L__5,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__lambda | |
.data | |
___L__6: | |
.asciz "let" | |
.text | |
movl $___L__6,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__let | |
.data | |
___L__7: | |
.asciz "quote" | |
.text | |
movl $___L__7,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__quote | |
.data | |
___L__8: | |
.asciz "quasiquote" | |
.text | |
movl $___L__8,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__quasiquote | |
.data | |
___L__9: | |
.asciz "unquote" | |
.text | |
movl $___L__9,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__unquote | |
.data | |
___L__10: | |
.asciz "unquote-splicing" | |
.text | |
movl $___L__10,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_s__unquote__splicing | |
movl $_globals,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $_expanders,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $_encoders,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $_evaluators,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $_applicators,%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__11: | |
.asciz "*globals*" | |
.text | |
movl $___L__11,%eax | |
movl %eax,36(%esp) | |
movl _intern,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,32(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
leal 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,_globals | |
movl _globals,%eax | |
movl %eax,40(%esp) | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 40(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
.data | |
___L__12: | |
.asciz "*expanders*" | |
.text | |
movl $___L__12,%eax | |
movl %eax,40(%esp) | |
movl _intern,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,44(%esp) | |
movl _k__define,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,_expanders | |
movl $0,%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
.data | |
___L__13: | |
.asciz "*encoders*" | |
.text | |
movl $___L__13,%eax | |
movl %eax,44(%esp) | |
movl _intern,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,44(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,40(%esp) | |
movl _k__define,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,_encoders | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
.data | |
___L__14: | |
.asciz "*evaluators*" | |
.text | |
movl $___L__14,%eax | |
movl %eax,40(%esp) | |
movl _intern,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,44(%esp) | |
movl _k__define,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,_evaluators | |
movl $0,%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
.data | |
___L__15: | |
.asciz "*applicators*" | |
.text | |
movl $___L__15,%eax | |
movl %eax,44(%esp) | |
movl _intern,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,44(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _globals,%eax | |
movl %eax,40(%esp) | |
movl _k__define,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,_applicators | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl _evaluators,%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Csymbol_3E,%eax | |
movl %eax,36(%esp) | |
movl _subr__eval__symbol,%eax | |
movl %eax,44(%esp) | |
.data | |
___L__16: | |
.asciz "eval-<symbol>" | |
.text | |
movl $___L__16,%eax | |
movl %eax,48(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl _k__set__array__at,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,48(%esp) | |
movl _evaluators,%eax | |
movl 48(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
movl __3Cpair_3E,%eax | |
movl %eax,36(%esp) | |
movl _subr__eval__pair,%eax | |
movl %eax,40(%esp) | |
.data | |
___L__17: | |
.asciz "eval-<pair>" | |
.text | |
movl $___L__17,%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,44(%esp) | |
movl _k__set__array__at,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,44(%esp) | |
movl _applicators,%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl __3Cfixed_3E,%eax | |
movl %eax,36(%esp) | |
movl _subr__apply__fixed,%eax | |
movl %eax,48(%esp) | |
.data | |
___L__18: | |
.asciz "apply-<fixed>" | |
.text | |
movl $___L__18,%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,40(%esp) | |
movl _k__set__array__at,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl _applicators,%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Cexpr_3E,%eax | |
movl %eax,36(%esp) | |
movl _subr__apply__expr,%eax | |
movl %eax,44(%esp) | |
.data | |
___L__19: | |
.asciz "apply-<expr>" | |
.text | |
movl $___L__19,%eax | |
movl %eax,48(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl _k__set__array__at,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
leal 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__pop__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
.data | |
___L__20: | |
.asciz "define" | |
.text | |
movl $___L__20,%eax | |
movl %eax,32(%esp) | |
movl _subr__define,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__21: | |
.asciz "lambda" | |
.text | |
movl $___L__21,%eax | |
movl %eax,48(%esp) | |
movl _subr__lambda,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__22: | |
.asciz "let" | |
.text | |
movl $___L__22,%eax | |
movl %eax,32(%esp) | |
movl _subr__let,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__23: | |
.asciz "set" | |
.text | |
movl $___L__23,%eax | |
movl %eax,48(%esp) | |
movl _subr__set,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__24: | |
.asciz "while" | |
.text | |
movl $___L__24,%eax | |
movl %eax,32(%esp) | |
movl _subr__while,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__25: | |
.asciz "if" | |
.text | |
movl $___L__25,%eax | |
movl %eax,48(%esp) | |
movl _subr__if,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__26: | |
.asciz "or" | |
.text | |
movl $___L__26,%eax | |
movl %eax,32(%esp) | |
movl _subr__or,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__27: | |
.asciz "and" | |
.text | |
movl $___L__27,%eax | |
movl %eax,48(%esp) | |
movl _subr__and,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__28: | |
.asciz "quote" | |
.text | |
movl $___L__28,%eax | |
movl %eax,32(%esp) | |
movl _subr__quote,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dfsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__29: | |
.asciz "not" | |
.text | |
movl $___L__29,%eax | |
movl %eax,48(%esp) | |
movl _subr__not,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__30: | |
.asciz "&" | |
.text | |
movl $___L__30,%eax | |
movl %eax,32(%esp) | |
movl _subr__bitand,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__31: | |
.asciz "|" | |
.text | |
movl $___L__31,%eax | |
movl %eax,48(%esp) | |
movl _subr__bitor,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__32: | |
.asciz "^" | |
.text | |
movl $___L__32,%eax | |
movl %eax,32(%esp) | |
movl _subr__bitxor,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__33: | |
.asciz "+" | |
.text | |
movl $___L__33,%eax | |
movl %eax,48(%esp) | |
movl _subr__add,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__34: | |
.asciz "-" | |
.text | |
movl $___L__34,%eax | |
movl %eax,32(%esp) | |
movl _subr__sub,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__35: | |
.asciz "*" | |
.text | |
movl $___L__35,%eax | |
movl %eax,48(%esp) | |
movl _subr__mul,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__36: | |
.asciz "/" | |
.text | |
movl $___L__36,%eax | |
movl %eax,32(%esp) | |
movl _subr__div,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__37: | |
.asciz "<<" | |
.text | |
movl $___L__37,%eax | |
movl %eax,48(%esp) | |
movl _subr__shl,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__38: | |
.asciz ">>" | |
.text | |
movl $___L__38,%eax | |
movl %eax,32(%esp) | |
movl _subr__shr,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__39: | |
.asciz "<" | |
.text | |
movl $___L__39,%eax | |
movl %eax,48(%esp) | |
movl _subr__lt,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__40: | |
.asciz "<=" | |
.text | |
movl $___L__40,%eax | |
movl %eax,32(%esp) | |
movl _subr__le,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__41: | |
.asciz "!=" | |
.text | |
movl $___L__41,%eax | |
movl %eax,48(%esp) | |
movl _subr__ne,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__42: | |
.asciz "=" | |
.text | |
movl $___L__42,%eax | |
movl %eax,32(%esp) | |
movl _subr__eq,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__43: | |
.asciz ">" | |
.text | |
movl $___L__43,%eax | |
movl %eax,48(%esp) | |
movl _subr__gt,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__44: | |
.asciz "abort" | |
.text | |
movl $___L__44,%eax | |
movl %eax,32(%esp) | |
movl _subr__abort,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__45: | |
.asciz "exit" | |
.text | |
movl $___L__45,%eax | |
movl %eax,48(%esp) | |
movl _subr__exit,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__46: | |
.asciz "dump" | |
.text | |
movl $___L__46,%eax | |
movl %eax,32(%esp) | |
movl _subr__dump,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__47: | |
.asciz "print" | |
.text | |
movl $___L__47,%eax | |
movl %eax,48(%esp) | |
movl _subr__print,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__48: | |
.asciz "warn" | |
.text | |
movl $___L__48,%eax | |
movl %eax,32(%esp) | |
movl _subr__warn,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__49: | |
.asciz "apply" | |
.text | |
movl $___L__49,%eax | |
movl %eax,48(%esp) | |
movl _subr__apply,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__50: | |
.asciz "eval" | |
.text | |
movl $___L__50,%eax | |
movl %eax,32(%esp) | |
movl _subr__eval,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__51: | |
.asciz "cons" | |
.text | |
movl $___L__51,%eax | |
movl %eax,48(%esp) | |
movl _subr__cons,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__52: | |
.asciz "string" | |
.text | |
movl $___L__52,%eax | |
movl %eax,32(%esp) | |
movl _subr__string,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__53: | |
.asciz "array" | |
.text | |
movl $___L__53,%eax | |
movl %eax,48(%esp) | |
movl _subr__array,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__54: | |
.asciz "form" | |
.text | |
movl $___L__54,%eax | |
movl %eax,32(%esp) | |
movl _subr__form,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__55: | |
.asciz "allocate" | |
.text | |
movl $___L__55,%eax | |
movl %eax,48(%esp) | |
movl _subr__allocate,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__56: | |
.asciz "type-of" | |
.text | |
movl $___L__56,%eax | |
movl %eax,32(%esp) | |
movl _subr__type__of,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__57: | |
.asciz "string?" | |
.text | |
movl $___L__57,%eax | |
movl %eax,48(%esp) | |
movl _subr__stringP,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__58: | |
.asciz "symbol?" | |
.text | |
movl $___L__58,%eax | |
movl %eax,32(%esp) | |
movl _subr__symbolP,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__59: | |
.asciz "pair?" | |
.text | |
movl $___L__59,%eax | |
movl %eax,48(%esp) | |
movl _subr__pairP,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__60: | |
.asciz "array?" | |
.text | |
movl $___L__60,%eax | |
movl %eax,32(%esp) | |
movl _subr__arrayP,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__61: | |
.asciz "car" | |
.text | |
movl $___L__61,%eax | |
movl %eax,48(%esp) | |
movl _subr__car,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__62: | |
.asciz "cdr" | |
.text | |
movl $___L__62,%eax | |
movl %eax,32(%esp) | |
movl _subr__cdr,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__63: | |
.asciz "oop-at" | |
.text | |
movl $___L__63,%eax | |
movl %eax,48(%esp) | |
movl _subr__oop__at,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__64: | |
.asciz "set-oop-at" | |
.text | |
movl $___L__64,%eax | |
movl %eax,32(%esp) | |
movl _subr__set__oop__at,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__65: | |
.asciz "array-length" | |
.text | |
movl $___L__65,%eax | |
movl %eax,48(%esp) | |
movl _subr__array__length,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__66: | |
.asciz "array-at" | |
.text | |
movl $___L__66,%eax | |
movl %eax,32(%esp) | |
movl _subr__array__at,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__67: | |
.asciz "set-array-at" | |
.text | |
movl $___L__67,%eax | |
movl %eax,48(%esp) | |
movl _subr__set__array__at,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__68: | |
.asciz "string-length" | |
.text | |
movl $___L__68,%eax | |
movl %eax,32(%esp) | |
movl _subr__string__length,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__69: | |
.asciz "string-at" | |
.text | |
movl $___L__69,%eax | |
movl %eax,48(%esp) | |
movl _subr__string__at,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__70: | |
.asciz "set-string-at" | |
.text | |
movl $___L__70,%eax | |
movl %eax,32(%esp) | |
movl _subr__set__string__at,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__71: | |
.asciz "string->symbol" | |
.text | |
movl $___L__71,%eax | |
movl %eax,48(%esp) | |
movl _subr__string__symbol,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__72: | |
.asciz "symbol->string" | |
.text | |
movl $___L__72,%eax | |
movl %eax,32(%esp) | |
movl _subr__symbol__string,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__73: | |
.asciz "long->string" | |
.text | |
movl $___L__73,%eax | |
movl %eax,48(%esp) | |
movl _subr__long__string,%eax | |
movl %eax,32(%esp) | |
movl _define_2Dsubr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__74: | |
.asciz "current-environment" | |
.text | |
movl $___L__74,%eax | |
movl %eax,32(%esp) | |
movl _subr__current__environment,%eax | |
movl %eax,48(%esp) | |
movl _define_2Dsubr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _s__set,%eax | |
movl %eax,48(%esp) | |
movl _globals,%eax | |
movl %eax,32(%esp) | |
movl _k__assq,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl _k__cdr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_f__set | |
movl $_f__set,%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _s__quote,%eax | |
movl %eax,32(%esp) | |
movl _globals,%eax | |
movl %eax,48(%esp) | |
movl _k__assq,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl _k__cdr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_f__quote | |
movl $_f__quote,%eax | |
movl %eax,48(%esp) | |
movl _gc__push__root,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _s__lambda,%eax | |
movl %eax,48(%esp) | |
movl _globals,%eax | |
movl %eax,32(%esp) | |
movl _k__assq,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl _k__cdr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_f__lambda | |
movl $_f__lambda,%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _s__let,%eax | |
movl %eax,32(%esp) | |
movl _globals,%eax | |
movl %eax,48(%esp) | |
movl _k__assq,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl _k__cdr,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_f__let | |
movl $_f__let,%eax | |
movl %eax,48(%esp) | |
movl _gc__push__root,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $32,%eax | |
movl %eax,48(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,_trace__stack | |
movl $_trace__stack,%eax | |
movl %eax,48(%esp) | |
movl _gc__push__root,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__76 | |
___L__75: | |
movl $4,%eax | |
movl %eax,48(%esp) | |
movl 84(%esp),%eax | |
addl 48(%esp),%eax | |
movl %eax,84(%esp) | |
movl $0,%eax | |
movl %eax,48(%esp) | |
movl 84(%esp),%eax | |
movl 48(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
movl 48(%esp),%eax | |
movl %eax,32(%esp) | |
.data | |
___L__79: | |
.asciz "-v" | |
.text | |
movl $___L__79,%eax | |
movl %eax,36(%esp) | |
movl _strcmp_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__77 | |
movl _opt__verbose,%eax | |
movl %eax,36(%esp) | |
movl $1,%eax | |
addl 36(%esp),%eax | |
movl %eax,_opt__verbose | |
jmp ___L__78 | |
___L__77: | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 84(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
.data | |
___L__80: | |
.asciz "r" | |
.text | |
movl $___L__80,%eax | |
movl %eax,32(%esp) | |
movl _fopen_24stub,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__81 | |
.data | |
___L__82: | |
.asciz "no such file: %s" | |
.text | |
movl $___L__82,%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 84(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl _fatal1,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__81: | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl _repl__stream,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl _fclose_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__78: | |
___L__76: | |
movl $1,%eax | |
movl %eax,48(%esp) | |
movl 80(%esp),%eax | |
subl 48(%esp),%eax | |
movl %eax,80(%esp) | |
cmpl $0,%eax | |
jne ___L__75 | |
movl $0,%eax | |
movl %eax,48(%esp) | |
movl _opt__verbose,%eax | |
cmpl 48(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__83 | |
movl _gc__gcollect,%eax | |
call *%eax | |
.data | |
___L__84: | |
.asciz "GC: %d objects in %d bytes, %d free\012" | |
.text | |
movl $___L__84,%eax | |
movl %eax,48(%esp) | |
movl _gc__objects__live,%eax | |
movl %eax,32(%esp) | |
movl _gc__bytes__used,%eax | |
movl %eax,40(%esp) | |
movl _gc__bytes__free,%eax | |
movl %eax,36(%esp) | |
movl _printf_24stub,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,8(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,12(%esp) | |
call *%eax | |
___L__83: | |
movl _stderr,%eax | |
movl %eax,36(%esp) | |
.data | |
___L__85: | |
.asciz "%d objects in %d bytes, %d free\012" | |
.text | |
movl $___L__85,%eax | |
movl %eax,40(%esp) | |
movl _gc__objects__live,%eax | |
movl %eax,32(%esp) | |
movl _gc__bytes__used,%eax | |
movl %eax,48(%esp) | |
movl _gc__bytes__free,%eax | |
movl %eax,44(%esp) | |
movl _fprintf_24stub,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,12(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,16(%esp) | |
call *%eax | |
movl $0,%eax | |
addl $72,%esp | |
leave | |
ret | |
## defn define-fsubr | |
.text | |
___L__86: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cfixed_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _intern,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
movl %eax,28(%esp) | |
movl _k__define,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn define-subr | |
.text | |
___L__87: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Csubr_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _intern,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
movl %eax,28(%esp) | |
movl _k__define,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn repl_stream | |
.text | |
___L__88: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
.data | |
___L__89: | |
.asciz "#!%*[^\012\015]" | |
.text | |
movl $___L__89,%eax | |
movl %eax,24(%esp) | |
movl _fscanf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__91 | |
___L__90: | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _opt__verbose,%eax | |
cmpl 24(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__92 | |
.data | |
___L__93: | |
.asciz ";;; " | |
.text | |
movl $___L__93,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__92 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__dumpln,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__92: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
movl %eax,20(%esp) | |
movl _k__expand,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $2,%eax | |
movl %eax,20(%esp) | |
movl _opt__verbose,%eax | |
cmpl 20(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__94 | |
.data | |
___L__95: | |
.asciz "expd--> " | |
.text | |
movl $___L__95,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__94 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__dumpln,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__94: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _globals,%eax | |
movl %eax,24(%esp) | |
movl _k__encode,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl _opt__verbose,%eax | |
cmpl 24(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__96 | |
.data | |
___L__97: | |
.asciz "encd--> " | |
.text | |
movl $___L__97,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__96 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__dumpln,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__96: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
movl %eax,20(%esp) | |
movl _k__eval,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _opt__verbose,%eax | |
cmpl 20(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__98 | |
.data | |
___L__99: | |
.asciz "eval--> " | |
.text | |
movl $___L__99,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__98 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__dumpln,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__98: | |
movl %eax,20(%esp) | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
___L__91: | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__read,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl %eax,20(%esp) | |
movl _EOF,%eax | |
cmpl 20(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__90 | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_current_environment | |
.text | |
___L__100: | |
## frame 0 0 0 16 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $8,%esp | |
movl 20(%esp),%eax | |
addl $8,%esp | |
leave | |
ret | |
## defn subr_long_string | |
.text | |
___L__101: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__104 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__104 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__104: | |
cmpl $0,%eax | |
je ___L__102 | |
movl 16(%esp),%eax | |
jmp ___L__103 | |
___L__102: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__106 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__106 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__106: | |
cmpl $0,%eax | |
je ___L__105 | |
movl $32,%eax | |
movl %eax,20(%esp) | |
movl _malloc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
.data | |
___L__107: | |
.asciz "%ld" | |
.text | |
movl $___L__107,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl _sprintf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _new_2D_3Cstring_3E,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _free_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
___L__105: | |
___L__103: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_symbol_string | |
.text | |
___L__108: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__111 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__111 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__111: | |
cmpl $0,%eax | |
je ___L__109 | |
movl 16(%esp),%eax | |
jmp ___L__110 | |
___L__109: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__113 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__113 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__113: | |
cmpl $0,%eax | |
je ___L__112 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cstring_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__112: | |
___L__110: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_string_symbol | |
.text | |
___L__114: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__117 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__117 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__117: | |
cmpl $0,%eax | |
je ___L__115 | |
movl 16(%esp),%eax | |
jmp ___L__116 | |
___L__115: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__119 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__119 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__119: | |
cmpl $0,%eax | |
je ___L__118 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _intern,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__118: | |
___L__116: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_set_string_at | |
.text | |
___L__120: | |
## frame 16 32 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__121: | |
.asciz "set-string-at" | |
.text | |
movl $___L__121,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity3,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 64(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__123 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__123 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__123: | |
cmpl $0,%eax | |
je ___L__122 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__124 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__124 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__124: | |
cmpl $0,%eax | |
je ___L__122 | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
cmpl 32(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__125 | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__string__length,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
cmpl 32(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__125 | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl %eax,40(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx),%ecx | |
movl 32(%esp),%eax | |
movb %al,(%ecx) | |
movl 24(%esp),%eax | |
___L__125: | |
___L__122: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_string_at | |
.text | |
___L__126: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__127: | |
.asciz "string-at" | |
.text | |
movl $___L__127,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__129 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__129 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__129: | |
cmpl $0,%eax | |
je ___L__128 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
cmpl 28(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__130 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__string__length,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
cmpl 28(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__130 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx),%ecx | |
xorl %eax,%eax | |
movb (%ecx),%al | |
movl %eax,28(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__130: | |
___L__128: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_string_length | |
.text | |
___L__131: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__133 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__133 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__133: | |
cmpl $0,%eax | |
je ___L__132 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__132: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_set_array_at | |
.text | |
___L__134: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__135: | |
.asciz "set-array-at" | |
.text | |
movl $___L__135,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity3,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 64(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__137 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__137 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__137: | |
cmpl $0,%eax | |
je ___L__136 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl %eax,36(%esp) | |
movl _k__set__array__at,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
___L__136: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_array_at | |
.text | |
___L__138: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__139: | |
.asciz "array-at" | |
.text | |
movl $___L__139,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__141 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__141 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__141: | |
cmpl $0,%eax | |
je ___L__140 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl _k__array__at,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__140: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_array_length | |
.text | |
___L__142: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__array__length,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_set_oop_at | |
.text | |
___L__143: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__144: | |
.asciz "set-oop-at" | |
.text | |
movl $___L__144,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity3,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 64(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__146 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__146 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__146: | |
cmpl $0,%eax | |
je ___L__145 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 28(%esp),%eax | |
movl %eax,(%ecx) | |
___L__145: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_oop_at | |
.text | |
___L__147: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__148: | |
.asciz "oop-at" | |
.text | |
movl $___L__148,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__150 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__150 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__150: | |
cmpl $0,%eax | |
je ___L__149 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__149: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_cdr | |
.text | |
___L__151: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_car | |
.text | |
___L__152: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_arrayP | |
.text | |
___L__153: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__155 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__155 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Carray_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__155: | |
cmpl $0,%eax | |
je ___L__154 | |
movl _s__t,%eax | |
___L__154: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_pairP | |
.text | |
___L__156: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__158 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__158 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__158: | |
cmpl $0,%eax | |
je ___L__157 | |
movl _s__t,%eax | |
___L__157: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_symbolP | |
.text | |
___L__159: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__161 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__161 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__161: | |
cmpl $0,%eax | |
je ___L__160 | |
movl _s__t,%eax | |
___L__160: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_stringP | |
.text | |
___L__162: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__164 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__164 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__164: | |
cmpl $0,%eax | |
je ___L__163 | |
movl _s__t,%eax | |
___L__163: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_type_of | |
.text | |
___L__165: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
cmpl $0,%eax | |
je ___L__166 | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__167 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__168 | |
___L__167: | |
movl __3Cundefined_3E,%eax | |
___L__168: | |
movl %eax,16(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__166: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_allocate | |
.text | |
___L__169: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__170: | |
.asciz "allocate" | |
.text | |
movl $___L__170,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__172 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__172 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__172: | |
cmpl $0,%eax | |
je ___L__171 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__173 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__173 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__173: | |
cmpl $0,%eax | |
je ___L__171 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $4,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
mull 28(%esp) | |
movl %eax,28(%esp) | |
movl _new_2Doops,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__171: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_form | |
.text | |
___L__174: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cform_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_array | |
.text | |
___L__175: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__177 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__177 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__177: | |
cmpl $0,%eax | |
je ___L__176 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__176: | |
movl %eax,16(%esp) | |
movl _new_2D_3Carray_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_string | |
.text | |
___L__178: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__180 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__180 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__180: | |
cmpl $0,%eax | |
je ___L__179 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__179: | |
movl %eax,16(%esp) | |
movl ___new_2D_3Cstring_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_cons | |
.text | |
___L__181: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cadr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_eval | |
.text | |
___L__182: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cadr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__183 | |
movl 52(%esp),%eax | |
___L__183: | |
movl %eax,20(%esp) | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__expand,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__encode,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__eval,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_eval_pair | |
.text | |
___L__184: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__car,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _trace__stack,%eax | |
movl %eax,20(%esp) | |
movl _trace__depth,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__set__array__at,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl _trace__depth,%eax | |
addl 32(%esp),%eax | |
movl %eax,_trace__depth | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__187 | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__187 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 32(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cfixed_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__187: | |
cmpl $0,%eax | |
je ___L__185 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 32(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__apply,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
jmp ___L__186 | |
___L__185: | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _evlist,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 28(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _k__apply,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,36(%esp) | |
leal 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 36(%esp),%eax | |
___L__186: | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl _trace__depth,%eax | |
subl 28(%esp),%eax | |
movl %eax,_trace__depth | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
leal 24(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__pop__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn evlist | |
.text | |
___L__188: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__191 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__191 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__191: | |
cmpl $0,%eax | |
je ___L__189 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__eval,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _evlist,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
jmp ___L__190 | |
___L__189: | |
movl 48(%esp),%eax | |
___L__190: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_eval_symbol | |
.text | |
___L__192: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__assq,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__194 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__194 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__194: | |
cmpl $0,%eax | |
jne ___L__193 | |
.data | |
___L__195: | |
.asciz "undefined variable: %s" | |
.text | |
movl $___L__195,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__198 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__198 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__198: | |
cmpl $0,%eax | |
je ___L__196 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__197 | |
___L__196: | |
.data | |
___L__199: | |
.asciz "(non-<symbol>)" | |
.text | |
movl $___L__199,%eax | |
___L__197: | |
movl %eax,28(%esp) | |
movl _fatal1,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__193: | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_apply | |
.text | |
___L__200: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cadr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__caddr,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__201 | |
movl 52(%esp),%eax | |
___L__201: | |
movl %eax,24(%esp) | |
movl _k__apply,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_apply_fixed | |
.text | |
___L__202: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cdr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__204 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__204 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cfixed_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__204: | |
cmpl $0,%eax | |
je ___L__203 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__apply,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
___L__203: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_apply_expr | |
.text | |
___L__205: | |
## frame 16 32 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__207 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__207 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cexpr_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__207: | |
cmpl $0,%eax | |
je ___L__206 | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cdr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__car,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 16(%esp),%eax | |
movl %eax,40(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,68(%esp) | |
leal 28(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__push__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 68(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__push__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 36(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__push__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__209 | |
___L__208: | |
movl 24(%esp),%eax | |
movl %eax,40(%esp) | |
movl 40(%esp),%eax | |
cmpl $0,%eax | |
je ___L__211 | |
movl 40(%esp),%eax | |
movl %eax,44(%esp) | |
movl $1,%eax | |
andl 44(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__211 | |
movl $-1,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 44(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__211: | |
cmpl $0,%eax | |
jne ___L__210 | |
.data | |
___L__212: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__212,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__213: | |
.asciz "too few arguments: (" | |
.text | |
movl $___L__213,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,40(%esp) | |
movl _k__print,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__214: | |
.asciz " " | |
.text | |
movl $___L__214,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,40(%esp) | |
movl _k__print,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__215: | |
.asciz ")" | |
.text | |
movl $___L__215,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__216: | |
.asciz "\012" | |
.text | |
movl $___L__216,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__210: | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl $0,%eax | |
movl %eax,44(%esp) | |
movl 24(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,36(%esp) | |
movl 36(%esp),%eax | |
movl %eax,44(%esp) | |
movl 68(%esp),%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,68(%esp) | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 24(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
___L__209: | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl 40(%esp),%eax | |
cmpl $0,%eax | |
je ___L__217 | |
movl 40(%esp),%eax | |
movl %eax,44(%esp) | |
movl $1,%eax | |
andl 44(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__217 | |
movl $-1,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 44(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__217: | |
cmpl $0,%eax | |
jne ___L__208 | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl 40(%esp),%eax | |
cmpl $0,%eax | |
je ___L__219 | |
movl 40(%esp),%eax | |
movl %eax,44(%esp) | |
movl $1,%eax | |
andl 44(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__219 | |
movl $-1,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 44(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__219: | |
cmpl $0,%eax | |
je ___L__218 | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl 24(%esp),%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,36(%esp) | |
movl 36(%esp),%eax | |
movl %eax,44(%esp) | |
movl 68(%esp),%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,68(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
___L__218: | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__220 | |
.data | |
___L__221: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__221,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__222: | |
.asciz "too many arguments: (" | |
.text | |
movl $___L__222,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,40(%esp) | |
movl _k__print,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__223: | |
.asciz " " | |
.text | |
movl $___L__223,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,40(%esp) | |
movl _k__print,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__224: | |
.asciz ")" | |
.text | |
movl $___L__224,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__225: | |
.asciz "\012" | |
.text | |
movl $___L__225,%eax | |
movl %eax,40(%esp) | |
movl _printf_24stub,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__220: | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 28(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
jmp ___L__227 | |
___L__226: | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 28(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl 68(%esp),%eax | |
movl %eax,44(%esp) | |
movl _k__eval,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,44(%esp) | |
movl 28(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
___L__227: | |
movl 28(%esp),%eax | |
movl %eax,44(%esp) | |
movl 44(%esp),%eax | |
cmpl $0,%eax | |
je ___L__228 | |
movl 44(%esp),%eax | |
movl %eax,40(%esp) | |
movl $1,%eax | |
andl 40(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__228 | |
movl $-1,%eax | |
movl %eax,40(%esp) | |
movl 44(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 40(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__228: | |
cmpl $0,%eax | |
jne ___L__226 | |
movl 24(%esp),%eax | |
movl %eax,44(%esp) | |
leal 36(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__pop__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 68(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__pop__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 28(%esp),%eax | |
movl %eax,40(%esp) | |
movl _gc__pop__root,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 44(%esp),%eax | |
___L__206: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_warn | |
.text | |
___L__229: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
jmp ___L__231 | |
___L__230: | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__232 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__233 | |
___L__232: | |
movl __3Cundefined_3E,%eax | |
___L__233: | |
movl %eax,20(%esp) | |
movl __3Cstring_3E,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__234 | |
movl _stderr,%eax | |
movl %eax,24(%esp) | |
.data | |
___L__236: | |
.asciz "%s" | |
.text | |
movl $___L__236,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl _fprintf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
jmp ___L__235 | |
___L__234: | |
movl __3Csymbol_3E,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__237 | |
movl _stderr,%eax | |
movl %eax,32(%esp) | |
.data | |
___L__239: | |
.asciz "%s" | |
.text | |
movl $___L__239,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl _fprintf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
jmp ___L__238 | |
___L__237: | |
movl $0,%eax | |
___L__238: | |
___L__235: | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,64(%esp) | |
___L__231: | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__240 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__240 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__240: | |
cmpl $0,%eax | |
jne ___L__230 | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_print | |
.text | |
___L__241: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
jmp ___L__243 | |
___L__242: | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl _k__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
___L__243: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__244 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__244 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__244: | |
cmpl $0,%eax | |
jne ___L__242 | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_dump | |
.text | |
___L__245: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
jmp ___L__247 | |
___L__246: | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl _k__dump,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
___L__247: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__248 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__248 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__248: | |
cmpl $0,%eax | |
jne ___L__246 | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_exit | |
.text | |
___L__249: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__251 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__251 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__251: | |
cmpl $0,%eax | |
je ___L__250 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__car,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__250: | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _exit_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_abort | |
.text | |
___L__252: | |
## frame 0 0 0 16 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $8,%esp | |
movl _abort_24stub,%eax | |
call *%eax | |
addl $8,%esp | |
leave | |
ret | |
## defn subr_ne | |
.text | |
___L__253: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__254: | |
.asciz "!=" | |
.text | |
movl $___L__254,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__255 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__256 | |
___L__255: | |
movl __3Cundefined_3E,%eax | |
___L__256: | |
movl %eax,24(%esp) | |
movl __3Clong_3E,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__257 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__260 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__260 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__260: | |
cmpl $0,%eax | |
je ___L__259 | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 28(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__259 | |
movl _s__t,%eax | |
___L__259: | |
jmp ___L__258 | |
___L__257: | |
movl __3Cstring_3E,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__261 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__264 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__264 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__264: | |
cmpl $0,%eax | |
je ___L__263 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl _strcmp_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__263: | |
jmp ___L__262 | |
___L__261: | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__265 | |
movl _s__t,%eax | |
___L__265: | |
___L__262: | |
___L__258: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_eq | |
.text | |
___L__266: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
.data | |
___L__267: | |
.asciz "=" | |
.text | |
movl $___L__267,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__268 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__269 | |
___L__268: | |
movl __3Cundefined_3E,%eax | |
___L__269: | |
movl %eax,24(%esp) | |
movl __3Clong_3E,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__270 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__273 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__273 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__273: | |
cmpl $0,%eax | |
je ___L__272 | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__272 | |
movl _s__t,%eax | |
___L__272: | |
jmp ___L__271 | |
___L__270: | |
movl __3Cstring_3E,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__274 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
cmpl $0,%eax | |
je ___L__277 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__277 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Cstring_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__277: | |
cmpl $0,%eax | |
je ___L__276 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl _strcmp_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__276 | |
movl _s__t,%eax | |
___L__276: | |
jmp ___L__275 | |
___L__274: | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__278 | |
movl _s__t,%eax | |
___L__278: | |
___L__275: | |
___L__271: | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_gt | |
.text | |
___L__279: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__280: | |
.asciz "gt" | |
.text | |
movl $___L__280,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__284 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__284 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__284: | |
cmpl $0,%eax | |
je ___L__283 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__285 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__285 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__285: | |
___L__283: | |
cmpl $0,%eax | |
je ___L__281 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 24(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__286 | |
movl _s__t,%eax | |
___L__286: | |
jmp ___L__282 | |
___L__281: | |
.data | |
___L__287: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__287,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__288: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__288,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__289: | |
.asciz "gt" | |
.text | |
movl $___L__289,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__290: | |
.asciz " " | |
.text | |
movl $___L__290,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__291: | |
.asciz " " | |
.text | |
movl $___L__291,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__292: | |
.asciz ")" | |
.text | |
movl $___L__292,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__293: | |
.asciz "\012" | |
.text | |
movl $___L__293,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__282: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_le | |
.text | |
___L__294: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__295: | |
.asciz "le" | |
.text | |
movl $___L__295,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__299 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__299 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__299: | |
cmpl $0,%eax | |
je ___L__298 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__300 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__300 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__300: | |
___L__298: | |
cmpl $0,%eax | |
je ___L__296 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 24(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__301 | |
movl _s__t,%eax | |
___L__301: | |
jmp ___L__297 | |
___L__296: | |
.data | |
___L__302: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__302,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__303: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__303,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__304: | |
.asciz "le" | |
.text | |
movl $___L__304,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__305: | |
.asciz " " | |
.text | |
movl $___L__305,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__306: | |
.asciz " " | |
.text | |
movl $___L__306,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__307: | |
.asciz ")" | |
.text | |
movl $___L__307,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__308: | |
.asciz "\012" | |
.text | |
movl $___L__308,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__297: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_lt | |
.text | |
___L__309: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__310: | |
.asciz "lt" | |
.text | |
movl $___L__310,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__314 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__314 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__314: | |
cmpl $0,%eax | |
je ___L__313 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__315 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__315 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__315: | |
___L__313: | |
cmpl $0,%eax | |
je ___L__311 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 24(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__316 | |
movl _s__t,%eax | |
___L__316: | |
jmp ___L__312 | |
___L__311: | |
.data | |
___L__317: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__317,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__318: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__318,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__319: | |
.asciz "lt" | |
.text | |
movl $___L__319,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__320: | |
.asciz " " | |
.text | |
movl $___L__320,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__321: | |
.asciz " " | |
.text | |
movl $___L__321,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__322: | |
.asciz ")" | |
.text | |
movl $___L__322,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__323: | |
.asciz "\012" | |
.text | |
movl $___L__323,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__312: | |
addl $40,%esp | |
leave | |
ret | |
## defn define-relation | |
## defn subr_shr | |
.text | |
___L__324: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__325: | |
.asciz "shr" | |
.text | |
movl $___L__325,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__329 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__329 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__329: | |
cmpl $0,%eax | |
je ___L__328 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__330 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__330 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__330: | |
___L__328: | |
cmpl $0,%eax | |
je ___L__326 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
shrl %cl,%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__327 | |
___L__326: | |
.data | |
___L__331: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__331,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__332: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__332,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__333: | |
.asciz "shr" | |
.text | |
movl $___L__333,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__334: | |
.asciz " " | |
.text | |
movl $___L__334,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__335: | |
.asciz " " | |
.text | |
movl $___L__335,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__336: | |
.asciz ")" | |
.text | |
movl $___L__336,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__337: | |
.asciz "\012" | |
.text | |
movl $___L__337,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__327: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_shl | |
.text | |
___L__338: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__339: | |
.asciz "shl" | |
.text | |
movl $___L__339,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__343 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__343 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__343: | |
cmpl $0,%eax | |
je ___L__342 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__344 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__344 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__344: | |
___L__342: | |
cmpl $0,%eax | |
je ___L__340 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
shll %cl,%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__341 | |
___L__340: | |
.data | |
___L__345: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__345,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__346: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__346,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__347: | |
.asciz "shl" | |
.text | |
movl $___L__347,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__348: | |
.asciz " " | |
.text | |
movl $___L__348,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__349: | |
.asciz " " | |
.text | |
movl $___L__349,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__350: | |
.asciz ")" | |
.text | |
movl $___L__350,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__351: | |
.asciz "\012" | |
.text | |
movl $___L__351,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__341: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_div | |
.text | |
___L__352: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__353: | |
.asciz "div" | |
.text | |
movl $___L__353,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__357 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__357 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__357: | |
cmpl $0,%eax | |
je ___L__356 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__358 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__358 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__358: | |
___L__356: | |
cmpl $0,%eax | |
je ___L__354 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl $0,%edx | |
divl 24(%esp) | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__355 | |
___L__354: | |
.data | |
___L__359: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__359,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__360: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__360,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__361: | |
.asciz "div" | |
.text | |
movl $___L__361,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__362: | |
.asciz " " | |
.text | |
movl $___L__362,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__363: | |
.asciz " " | |
.text | |
movl $___L__363,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__364: | |
.asciz ")" | |
.text | |
movl $___L__364,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__365: | |
.asciz "\012" | |
.text | |
movl $___L__365,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__355: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_mul | |
.text | |
___L__366: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__367: | |
.asciz "mul" | |
.text | |
movl $___L__367,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__371 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__371 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__371: | |
cmpl $0,%eax | |
je ___L__370 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__372 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__372 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__372: | |
___L__370: | |
cmpl $0,%eax | |
je ___L__368 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
mull 24(%esp) | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__369 | |
___L__368: | |
.data | |
___L__373: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__373,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__374: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__374,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__375: | |
.asciz "mul" | |
.text | |
movl $___L__375,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__376: | |
.asciz " " | |
.text | |
movl $___L__376,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__377: | |
.asciz " " | |
.text | |
movl $___L__377,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__378: | |
.asciz ")" | |
.text | |
movl $___L__378,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__379: | |
.asciz "\012" | |
.text | |
movl $___L__379,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__369: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_add | |
.text | |
___L__380: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__381: | |
.asciz "add" | |
.text | |
movl $___L__381,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__385 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__385 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__385: | |
cmpl $0,%eax | |
je ___L__384 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__386 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__386 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__386: | |
___L__384: | |
cmpl $0,%eax | |
je ___L__382 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
addl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__383 | |
___L__382: | |
.data | |
___L__387: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__387,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__388: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__388,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__389: | |
.asciz "add" | |
.text | |
movl $___L__389,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__390: | |
.asciz " " | |
.text | |
movl $___L__390,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__391: | |
.asciz " " | |
.text | |
movl $___L__391,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__392: | |
.asciz ")" | |
.text | |
movl $___L__392,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__393: | |
.asciz "\012" | |
.text | |
movl $___L__393,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__383: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_bitxor | |
.text | |
___L__394: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__395: | |
.asciz "bitxor" | |
.text | |
movl $___L__395,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__399 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__399 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__399: | |
cmpl $0,%eax | |
je ___L__398 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__400 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__400 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__400: | |
___L__398: | |
cmpl $0,%eax | |
je ___L__396 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
xorl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__397 | |
___L__396: | |
.data | |
___L__401: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__401,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__402: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__402,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__403: | |
.asciz "bitxor" | |
.text | |
movl $___L__403,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__404: | |
.asciz " " | |
.text | |
movl $___L__404,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__405: | |
.asciz " " | |
.text | |
movl $___L__405,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__406: | |
.asciz ")" | |
.text | |
movl $___L__406,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__407: | |
.asciz "\012" | |
.text | |
movl $___L__407,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__397: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_bitor | |
.text | |
___L__408: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__409: | |
.asciz "bitor" | |
.text | |
movl $___L__409,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__413 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__413 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__413: | |
cmpl $0,%eax | |
je ___L__412 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__414 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__414 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__414: | |
___L__412: | |
cmpl $0,%eax | |
je ___L__410 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
orl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__411 | |
___L__410: | |
.data | |
___L__415: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__415,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__416: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__416,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__417: | |
.asciz "bitor" | |
.text | |
movl $___L__417,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__418: | |
.asciz " " | |
.text | |
movl $___L__418,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__419: | |
.asciz " " | |
.text | |
movl $___L__419,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__420: | |
.asciz ")" | |
.text | |
movl $___L__420,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__421: | |
.asciz "\012" | |
.text | |
movl $___L__421,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__411: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_bitand | |
.text | |
___L__422: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__423: | |
.asciz "bitand" | |
.text | |
movl $___L__423,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _arity2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__427 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__427 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__427: | |
cmpl $0,%eax | |
je ___L__426 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__428 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__428 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__428: | |
___L__426: | |
cmpl $0,%eax | |
je ___L__424 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
andl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__425 | |
___L__424: | |
.data | |
___L__429: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__429,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__430: | |
.asciz "non-numeric argument: (" | |
.text | |
movl $___L__430,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__431: | |
.asciz "bitand" | |
.text | |
movl $___L__431,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__432: | |
.asciz " " | |
.text | |
movl $___L__432,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__433: | |
.asciz " " | |
.text | |
movl $___L__433,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__434: | |
.asciz ")" | |
.text | |
movl $___L__434,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__435: | |
.asciz "\012" | |
.text | |
movl $___L__435,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__425: | |
addl $40,%esp | |
leave | |
ret | |
## defn define-binary | |
## defn subr_sub | |
.text | |
___L__436: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__437 | |
.data | |
___L__438: | |
.asciz "-: expected 1 or 2 arguments" | |
.text | |
movl $___L__438,%eax | |
movl %eax,16(%esp) | |
movl _fatal,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__437: | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__442 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__442 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__442: | |
___L__441: | |
cmpl $0,%eax | |
je ___L__439 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__446 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__446 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__446: | |
cmpl $0,%eax | |
je ___L__445 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__447 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__447 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__447: | |
___L__445: | |
cmpl $0,%eax | |
je ___L__443 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
subl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__444 | |
___L__443: | |
.data | |
___L__448: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__448,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__449: | |
.asciz "non-numeric argument: (- " | |
.text | |
movl $___L__449,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__450: | |
.asciz " " | |
.text | |
movl $___L__450,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__451: | |
.asciz ")" | |
.text | |
movl $___L__451,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__452: | |
.asciz "\012" | |
.text | |
movl $___L__452,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__444: | |
jmp ___L__440 | |
___L__439: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__456 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__456 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Clong_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__456: | |
___L__455: | |
cmpl $0,%eax | |
je ___L__453 | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
negl %eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__454 | |
___L__453: | |
.data | |
___L__457: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__457,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__458: | |
.asciz "non-numeric argument: (- " | |
.text | |
movl $___L__458,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__459: | |
.asciz ")" | |
.text | |
movl $___L__459,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__460: | |
.asciz "\012" | |
.text | |
movl $___L__460,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__454: | |
___L__440: | |
addl $40,%esp | |
leave | |
ret | |
## defn arity3 | |
.text | |
___L__461: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__464 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__464 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__464: | |
cmpl $0,%eax | |
je ___L__463 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__465 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__465 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__465: | |
cmpl $0,%eax | |
je ___L__463 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__466 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__466 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__466: | |
cmpl $0,%eax | |
je ___L__463 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 52(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__463: | |
cmpl $0,%eax | |
jne ___L__462 | |
.data | |
___L__467: | |
.asciz "%s: expected 3 arguments" | |
.text | |
movl $___L__467,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _fatal1,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__462: | |
addl $40,%esp | |
leave | |
ret | |
## defn arity2 | |
.text | |
___L__468: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__471 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__471 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__471: | |
cmpl $0,%eax | |
je ___L__470 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__472 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__472 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__472: | |
cmpl $0,%eax | |
je ___L__470 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__470: | |
cmpl $0,%eax | |
jne ___L__469 | |
.data | |
___L__473: | |
.asciz "%s: expected 2 arguments" | |
.text | |
movl $___L__473,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _fatal1,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__469: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_not | |
.text | |
___L__474: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__475 | |
movl $0,%eax | |
jmp ___L__476 | |
___L__475: | |
movl _s__t,%eax | |
___L__476: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_quote | |
.text | |
___L__477: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_and | |
.text | |
___L__478: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _s__t,%eax | |
movl %eax,16(%esp) | |
jmp ___L__480 | |
___L__479: | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
cmpl $0,%eax | |
jne ___L__481 | |
movl $0,%eax | |
jmp ___L__482 | |
___L__481: | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
___L__480: | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__483 | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__483 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__483: | |
cmpl $0,%eax | |
jne ___L__479 | |
movl 16(%esp),%eax | |
___L__482: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_or | |
.text | |
___L__484: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl %eax,16(%esp) | |
jmp ___L__486 | |
___L__485: | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
cmpl $0,%eax | |
je ___L__487 | |
movl 16(%esp),%eax | |
jmp ___L__488 | |
___L__487: | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,48(%esp) | |
___L__486: | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__489 | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__489 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__489: | |
cmpl $0,%eax | |
jne ___L__485 | |
___L__488: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_if | |
.text | |
___L__490: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__eval,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__491 | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cadr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__492 | |
___L__491: | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cdr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
jmp ___L__494 | |
___L__493: | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
___L__494: | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__cdr,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__495 | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__495 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__495: | |
cmpl $0,%eax | |
jne ___L__493 | |
movl 16(%esp),%eax | |
___L__492: | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_while | |
.text | |
___L__496: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
jmp ___L__498 | |
___L__497: | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
jmp ___L__500 | |
___L__499: | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__eval,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__500: | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__cdr,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__501 | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__501 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 32(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__501: | |
cmpl $0,%eax | |
jne ___L__499 | |
___L__498: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__eval,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__497 | |
addl $56,%esp | |
leave | |
ret | |
## defn subr_set | |
.text | |
___L__502: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__assq,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__504 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__504 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__504: | |
cmpl $0,%eax | |
jne ___L__503 | |
.data | |
___L__505: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__505,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__506: | |
.asciz "undefined variable: (set " | |
.text | |
movl $___L__506,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__507: | |
.asciz ")" | |
.text | |
movl $___L__507,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__508: | |
.asciz "\012" | |
.text | |
movl $___L__508,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__503: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__cadr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 24(%esp),%eax | |
movl %eax,(%ecx) | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_let | |
.text | |
___L__509: | |
## frame 16 36 64 80 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $72,%esp | |
movl 84(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 80(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__car,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 80(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__cdr,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__511 | |
___L__510: | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl 36(%esp),%eax | |
cmpl $0,%eax | |
je ___L__514 | |
movl 36(%esp),%eax | |
movl %eax,40(%esp) | |
movl $1,%eax | |
andl 40(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__514 | |
movl $-1,%eax | |
movl %eax,40(%esp) | |
movl 36(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 40(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__514: | |
cmpl $0,%eax | |
je ___L__512 | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
jmp ___L__516 | |
___L__515: | |
movl $0,%eax | |
movl %eax,44(%esp) | |
movl 40(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl 84(%esp),%eax | |
movl %eax,48(%esp) | |
movl _k__eval,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,48(%esp) | |
movl 40(%esp),%eax | |
movl 48(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
___L__516: | |
movl 40(%esp),%eax | |
movl %eax,48(%esp) | |
movl 48(%esp),%eax | |
cmpl $0,%eax | |
je ___L__517 | |
movl 48(%esp),%eax | |
movl %eax,44(%esp) | |
movl $1,%eax | |
andl 44(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__517 | |
movl $-1,%eax | |
movl %eax,44(%esp) | |
movl 48(%esp),%eax | |
movl 44(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,44(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 44(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__517: | |
cmpl $0,%eax | |
jne ___L__515 | |
movl 36(%esp),%eax | |
movl %eax,48(%esp) | |
movl 20(%esp),%eax | |
movl %eax,44(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 48(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,44(%esp) | |
movl 16(%esp),%eax | |
movl %eax,48(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 44(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 48(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
jmp ___L__513 | |
___L__512: | |
___L__513: | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
___L__511: | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__518 | |
movl 32(%esp),%eax | |
movl %eax,40(%esp) | |
movl $1,%eax | |
andl 40(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__518 | |
movl $-1,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 40(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__518: | |
cmpl $0,%eax | |
jne ___L__510 | |
movl $0,%eax | |
movl %eax,20(%esp) | |
jmp ___L__520 | |
___L__519: | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl %eax,40(%esp) | |
movl _k__eval,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 28(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
___L__520: | |
movl 28(%esp),%eax | |
movl %eax,40(%esp) | |
movl 40(%esp),%eax | |
cmpl $0,%eax | |
je ___L__521 | |
movl 40(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__521 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 40(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__521: | |
cmpl $0,%eax | |
jne ___L__519 | |
movl 20(%esp),%eax | |
movl %eax,40(%esp) | |
leal 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 40(%esp),%eax | |
addl $72,%esp | |
leave | |
ret | |
## defn subr_lambda | |
.text | |
___L__522: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cexpr_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn subr_define | |
.text | |
___L__523: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__525 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__525 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__525: | |
cmpl $0,%eax | |
jne ___L__524 | |
.data | |
___L__526: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__526,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__527: | |
.asciz "non-symbol identifier in define: " | |
.text | |
movl $___L__527,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__print,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__528: | |
.asciz "\012" | |
.text | |
movl $___L__528,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__524: | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__cadr,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__eval,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _globals,%eax | |
movl %eax,32(%esp) | |
movl _k__define,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
leal 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn k_apply | |
.text | |
___L__529: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__532 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__532 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Csubr_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__532: | |
cmpl $0,%eax | |
je ___L__530 | |
movl 68(%esp),%eax | |
movl %eax,16(%esp) | |
movl 72(%esp),%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__531 | |
___L__530: | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _applicators,%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__533 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__534 | |
___L__533: | |
movl __3Cundefined_3E,%eax | |
___L__534: | |
movl %eax,16(%esp) | |
movl _k__array__at,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__535 | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 72(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__apply,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
jmp ___L__536 | |
___L__535: | |
.data | |
___L__537: | |
.asciz "\012eval.k: error: " | |
.text | |
movl $___L__537,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__538: | |
.asciz "cannot apply: " | |
.text | |
movl $___L__538,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__print,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__539: | |
.asciz "\012" | |
.text | |
movl $___L__539,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
___L__536: | |
___L__531: | |
addl $56,%esp | |
leave | |
ret | |
## defn k_eval | |
.text | |
___L__540: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl _evaluators,%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__541 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__542 | |
___L__541: | |
movl __3Cundefined_3E,%eax | |
___L__542: | |
movl %eax,20(%esp) | |
movl _k__array__at,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__543 | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _trace__stack,%eax | |
movl %eax,16(%esp) | |
movl _trace__depth,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__set__array__at,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl _trace__depth,%eax | |
addl 32(%esp),%eax | |
movl %eax,_trace__depth | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__apply,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl _trace__depth,%eax | |
subl 16(%esp),%eax | |
movl %eax,_trace__depth | |
movl %eax,16(%esp) | |
leal 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
___L__543: | |
movl 64(%esp),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn k_encode | |
.text | |
___L__544: | |
## frame 16 28 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__547 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__547 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__547: | |
cmpl $0,%eax | |
je ___L__545 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__encode,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__550 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__550 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__550: | |
cmpl $0,%eax | |
je ___L__548 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__assq,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl _k__cdr,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__553 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__553 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Cfixed_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__553: | |
cmpl $0,%eax | |
jne ___L__552 | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__554 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__554 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Csubr_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__554: | |
___L__552: | |
cmpl $0,%eax | |
je ___L__551 | |
movl 28(%esp),%eax | |
movl %eax,20(%esp) | |
___L__551: | |
jmp ___L__549 | |
___L__548: | |
___L__549: | |
movl _f__let,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__555 | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__cadr,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
leal 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__push__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__558 | |
___L__557: | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl 36(%esp),%eax | |
cmpl $0,%eax | |
je ___L__560 | |
movl 36(%esp),%eax | |
movl %eax,40(%esp) | |
movl $1,%eax | |
andl 40(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__560 | |
movl $-1,%eax | |
movl %eax,40(%esp) | |
movl 36(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,40(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 40(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__560: | |
cmpl $0,%eax | |
je ___L__559 | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
___L__559: | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,40(%esp) | |
movl 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,68(%esp) | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 28(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
___L__558: | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__561 | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl $1,%eax | |
andl 36(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__561 | |
movl $-1,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 36(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__561: | |
cmpl $0,%eax | |
jne ___L__557 | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _enlist,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl %eax,36(%esp) | |
leal 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 36(%esp),%eax | |
jmp ___L__556 | |
___L__555: | |
movl _f__lambda,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__562 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__cadr,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
leal 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 28(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__push__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__565 | |
___L__564: | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,68(%esp) | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
___L__565: | |
movl 24(%esp),%eax | |
movl %eax,36(%esp) | |
movl 36(%esp),%eax | |
cmpl $0,%eax | |
je ___L__566 | |
movl 36(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
andl 32(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__566 | |
movl $-1,%eax | |
movl %eax,32(%esp) | |
movl 36(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__566: | |
cmpl $0,%eax | |
jne ___L__564 | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__567 | |
movl 24(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,68(%esp) | |
___L__567: | |
movl 16(%esp),%eax | |
movl %eax,36(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _enlist,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl %eax,32(%esp) | |
leal 28(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__pop__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 68(%esp),%eax | |
movl %eax,36(%esp) | |
movl _gc__pop__root,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
jmp ___L__563 | |
___L__562: | |
movl _f__quote,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
cmpl 28(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__568 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _enlist,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
jmp ___L__569 | |
___L__568: | |
movl $0,%eax | |
___L__569: | |
___L__563: | |
___L__556: | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,28(%esp) | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
jmp ___L__546 | |
___L__545: | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl _encoders,%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__570 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__571 | |
___L__570: | |
movl __3Cundefined_3E,%eax | |
___L__571: | |
movl %eax,20(%esp) | |
movl _k__array__at,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__572 | |
.data | |
___L__573: | |
.asciz "APPLY GOT ENCODER\012... " | |
.text | |
movl $___L__573,%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__println,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
___L__572: | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__574 | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__push__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 28(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
.data | |
___L__575: | |
.asciz "APPLY ENCODER\012... " | |
.text | |
movl $___L__575,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__576: | |
.asciz " " | |
.text | |
movl $___L__576,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
.data | |
___L__577: | |
.asciz " " | |
.text | |
movl $___L__577,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 68(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__println,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__apply,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,32(%esp) | |
leal 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
___L__574: | |
___L__546: | |
movl 64(%esp),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn enlist | |
.text | |
___L__578: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__581 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__581 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__581: | |
cmpl $0,%eax | |
je ___L__579 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__encode,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _enlist,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
jmp ___L__580 | |
___L__579: | |
movl 48(%esp),%eax | |
___L__580: | |
addl $40,%esp | |
leave | |
ret | |
## defn k_expand | |
.text | |
___L__582: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__585 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__585 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__585: | |
cmpl $0,%eax | |
je ___L__583 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__expand,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__588 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__588 | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__588: | |
cmpl $0,%eax | |
je ___L__586 | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _k__assq,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl _k__cdr,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__591 | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__591 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cform_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__591: | |
cmpl $0,%eax | |
je ___L__589 | |
movl 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__apply,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__expand,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
jmp ___L__592 | |
jmp ___L__590 | |
___L__589: | |
___L__590: | |
jmp ___L__587 | |
___L__586: | |
___L__587: | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__push__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _s__quote,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__593 | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _exlist,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
___L__593: | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _s__set,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__594 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__car,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__595 | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__595 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 32(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__595: | |
cmpl $0,%eax | |
je ___L__594 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__caar,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
cmpl $0,%eax | |
je ___L__596 | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__596 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 32(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Csymbol_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__596: | |
cmpl $0,%eax | |
je ___L__594 | |
movl _new__buffer,%eax | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
.data | |
___L__597: | |
.asciz "set-" | |
.text | |
movl $___L__597,%eax | |
movl %eax,16(%esp) | |
movl _buffer__append__all,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 28(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl _buffer__append__all,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl _buffer__contents,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl _intern,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl _k__concat,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
___L__594: | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__584 | |
___L__583: | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _expanders,%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__598 | |
movl $-1,%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__599 | |
___L__598: | |
movl __3Cundefined_3E,%eax | |
___L__599: | |
movl %eax,24(%esp) | |
movl _k__array__at,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__600 | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
leal 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _k__apply,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,28(%esp) | |
leal 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _gc__pop__root,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
___L__600: | |
___L__584: | |
movl 64(%esp),%eax | |
___L__592: | |
addl $56,%esp | |
leave | |
ret | |
## defn exlist | |
.text | |
___L__601: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__604 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__604 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__604: | |
cmpl $0,%eax | |
je ___L__602 | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__expand,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _exlist,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
leal 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
jmp ___L__603 | |
___L__602: | |
movl 48(%esp),%eax | |
___L__603: | |
addl $40,%esp | |
leave | |
ret | |
## defn k_concat | |
.text | |
___L__605: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__608 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__608 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__608: | |
cmpl $0,%eax | |
je ___L__606 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__concat,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,52(%esp) | |
leal 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 16(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
leal 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__pop__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
jmp ___L__607 | |
___L__606: | |
movl 52(%esp),%eax | |
___L__607: | |
addl $40,%esp | |
leave | |
ret | |
## defn k_set_array_at | |
.text | |
___L__609: | |
## frame 16 28 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__611 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__611 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Carray_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__611: | |
cmpl $0,%eax | |
je ___L__610 | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__size,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%edx | |
divl 20(%esp) | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
cmpl 24(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__612 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
cmpl 24(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__613 | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
addl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl $2,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
mull 28(%esp) | |
movl %eax,28(%esp) | |
movl _max,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl __3C__array_3E,%eax | |
movl %eax,24(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $4,%eax | |
mull 32(%esp) | |
movl %eax,32(%esp) | |
movl _new_2Doops,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,36(%esp) | |
movl $4,%eax | |
movl %eax,40(%esp) | |
movl 20(%esp),%eax | |
mull 40(%esp) | |
movl %eax,40(%esp) | |
movl _memcpy_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,40(%esp) | |
movl $0,%eax | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 40(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl %eax,16(%esp) | |
___L__613: | |
movl 72(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 28(%esp),%eax | |
movl %eax,(%ecx) | |
___L__612: | |
___L__610: | |
addl $56,%esp | |
leave | |
ret | |
## defn k_array_at | |
.text | |
___L__614: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__616 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__616 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Carray_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__616: | |
cmpl $0,%eax | |
je ___L__615 | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__size,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%edx | |
divl 20(%esp) | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
cmpl 24(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__617 | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl 52(%esp),%eax | |
cmpl 24(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__617 | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__617: | |
___L__615: | |
addl $40,%esp | |
leave | |
ret | |
## defn k_array_length | |
.text | |
___L__618: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__620 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__620 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Carray_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__620: | |
cmpl $0,%eax | |
je ___L__619 | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__size,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%edx | |
divl 20(%esp) | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
___L__619: | |
addl $40,%esp | |
leave | |
ret | |
## defn k_string_length | |
.text | |
___L__621: | |
## frame 0 12 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl $0,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
movl %eax,4(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,8(%esp) | |
movl 4(%esp),%eax | |
movl 8(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
addl $24,%esp | |
leave | |
ret | |
## defn k_caddr | |
.text | |
___L__622: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_cddr | |
.text | |
___L__623: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_cadr | |
.text | |
___L__624: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__cdr,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_caar | |
.text | |
___L__625: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl _k__car,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_cdr | |
.text | |
___L__626: | |
## frame 0 8 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl 0(%esp),%eax | |
cmpl $0,%eax | |
je ___L__628 | |
movl 0(%esp),%eax | |
movl %eax,4(%esp) | |
movl $1,%eax | |
andl 4(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__628 | |
movl $-1,%eax | |
movl %eax,4(%esp) | |
movl 0(%esp),%eax | |
movl 4(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,4(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 4(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__628: | |
cmpl $0,%eax | |
je ___L__627 | |
movl $1,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__627: | |
addl $24,%esp | |
leave | |
ret | |
## defn k_car | |
.text | |
___L__629: | |
## frame 0 8 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl 0(%esp),%eax | |
cmpl $0,%eax | |
je ___L__631 | |
movl 0(%esp),%eax | |
movl %eax,4(%esp) | |
movl $1,%eax | |
andl 4(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__631 | |
movl $-1,%eax | |
movl %eax,4(%esp) | |
movl 0(%esp),%eax | |
movl 4(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,4(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 4(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__631: | |
cmpl $0,%eax | |
je ___L__630 | |
movl $0,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
___L__630: | |
addl $24,%esp | |
leave | |
ret | |
## defn k_assq | |
.text | |
___L__632: | |
## frame 0 12 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
jmp ___L__634 | |
___L__633: | |
movl $0,%eax | |
movl %eax,0(%esp) | |
movl 36(%esp),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,0(%esp) | |
movl 0(%esp),%eax | |
movl %eax,4(%esp) | |
movl 4(%esp),%eax | |
cmpl $0,%eax | |
je ___L__636 | |
movl 4(%esp),%eax | |
movl %eax,8(%esp) | |
movl $1,%eax | |
andl 8(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__636 | |
movl $-1,%eax | |
movl %eax,8(%esp) | |
movl 4(%esp),%eax | |
movl 8(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,8(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 8(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__636: | |
cmpl $0,%eax | |
je ___L__635 | |
movl $0,%eax | |
movl %eax,4(%esp) | |
movl 0(%esp),%eax | |
movl 4(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,4(%esp) | |
movl 32(%esp),%eax | |
cmpl 4(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__635 | |
movl 0(%esp),%eax | |
jmp ___L__637 | |
___L__635: | |
movl $1,%eax | |
movl %eax,0(%esp) | |
movl 36(%esp),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
___L__634: | |
movl 36(%esp),%eax | |
movl %eax,0(%esp) | |
movl 0(%esp),%eax | |
cmpl $0,%eax | |
je ___L__638 | |
movl 0(%esp),%eax | |
movl %eax,4(%esp) | |
movl $1,%eax | |
andl 4(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__638 | |
movl $-1,%eax | |
movl %eax,4(%esp) | |
movl 0(%esp),%eax | |
movl 4(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,4(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 4(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__638: | |
cmpl $0,%eax | |
jne ___L__633 | |
___L__637: | |
addl $24,%esp | |
leave | |
ret | |
## defn k_define | |
.text | |
___L__639: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 56(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 56(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_dumpln | |
.text | |
___L__640: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__641: | |
.asciz "\012" | |
.text | |
movl $___L__641,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_dump | |
.text | |
___L__642: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_println | |
.text | |
___L__643: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__644: | |
.asciz "\012" | |
.text | |
movl $___L__644,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_print | |
.text | |
___L__645: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn do_print | |
.text | |
___L__646: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl $0,%eax | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
je ___L__647 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__648 | |
___L__647: | |
movl __3Cundefined_3E,%eax | |
___L__648: | |
movl %eax,16(%esp) | |
movl __3Cundefined_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__649 | |
.data | |
___L__651: | |
.asciz "nil" | |
.text | |
movl $___L__651,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__650 | |
___L__649: | |
movl __3Clong_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__652 | |
.data | |
___L__654: | |
.asciz "%d" | |
.text | |
movl $___L__654,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__653 | |
___L__652: | |
movl __3Cstring_3E,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__655 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__657 | |
.data | |
___L__659: | |
.asciz "%s" | |
.text | |
movl $___L__659,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__658 | |
___L__657: | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
.data | |
___L__660: | |
.asciz "\"" | |
.text | |
movl $___L__660,%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__662 | |
___L__661: | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl $32,%eax | |
cmpl 32(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__665 | |
movl $126,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__665: | |
cmpl $0,%eax | |
je ___L__663 | |
movl $34,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__666 | |
.data | |
___L__668: | |
.asciz "\\\"" | |
.text | |
movl $___L__668,%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__667 | |
___L__666: | |
movl $92,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__669 | |
.data | |
___L__671: | |
.asciz "\\\\" | |
.text | |
movl $___L__671,%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__670 | |
___L__669: | |
.data | |
___L__672: | |
.asciz "%c" | |
.text | |
movl $___L__672,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl %eax,36(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__670: | |
___L__667: | |
jmp ___L__664 | |
___L__663: | |
.data | |
___L__673: | |
.asciz "\\%03o" | |
.text | |
movl $___L__673,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__664: | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
addl 32(%esp),%eax | |
movl %eax,28(%esp) | |
___L__662: | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx),%ecx | |
xorl %eax,%eax | |
movb (%ecx),%al | |
movl %eax,20(%esp) | |
cmpl $0,%eax | |
jne ___L__661 | |
.data | |
___L__674: | |
.asciz "\"" | |
.text | |
movl $___L__674,%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__658: | |
jmp ___L__656 | |
___L__655: | |
movl __3Csymbol_3E,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__675 | |
.data | |
___L__677: | |
.asciz "%s" | |
.text | |
movl $___L__677,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__676 | |
___L__675: | |
movl __3Cpair_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__678 | |
.data | |
___L__680: | |
.asciz "(" | |
.text | |
movl $___L__680,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__682 | |
___L__681: | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _do__print,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,64(%esp) | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__684 | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__684 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__684: | |
cmpl $0,%eax | |
je ___L__683 | |
.data | |
___L__685: | |
.asciz " " | |
.text | |
movl $___L__685,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__683: | |
___L__682: | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__687 | |
movl 24(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__687 | |
movl $-1,%eax | |
movl %eax,20(%esp) | |
movl 24(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__687: | |
cmpl $0,%eax | |
je ___L__686 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
cmpl 24(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
___L__686: | |
cmpl $0,%eax | |
jne ___L__681 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _globals,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__688 | |
.data | |
___L__690: | |
.asciz "<globals>" | |
.text | |
movl $___L__690,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__689 | |
___L__688: | |
movl 64(%esp),%eax | |
cmpl $0,%eax | |
je ___L__691 | |
.data | |
___L__692: | |
.asciz " . " | |
.text | |
movl $___L__692,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__691: | |
___L__689: | |
.data | |
___L__693: | |
.asciz ")" | |
.text | |
movl $___L__693,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__679 | |
___L__678: | |
movl __3Carray_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__694 | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__array__length,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
.data | |
___L__696: | |
.asciz "Array(" | |
.text | |
movl $___L__696,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
jmp ___L__698 | |
___L__697: | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
je ___L__699 | |
.data | |
___L__700: | |
.asciz " " | |
.text | |
movl $___L__700,%eax | |
movl %eax,32(%esp) | |
movl _printf_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__699: | |
movl 64(%esp),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
movl %eax,36(%esp) | |
movl _k__array__at,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,36(%esp) | |
movl _do__print,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
addl 36(%esp),%eax | |
movl %eax,24(%esp) | |
___L__698: | |
movl 28(%esp),%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
cmpl 36(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__697 | |
.data | |
___L__701: | |
.asciz ")" | |
.text | |
movl $___L__701,%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__695 | |
___L__694: | |
movl __3Cexpr_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__702 | |
.data | |
___L__704: | |
.asciz "Expr(" | |
.text | |
movl $___L__704,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _k__car,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _do__print,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__705: | |
.asciz ")" | |
.text | |
movl $___L__705,%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__703 | |
___L__702: | |
movl __3Cform_3E,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__706 | |
.data | |
___L__708: | |
.asciz "Form(" | |
.text | |
movl $___L__708,%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 28(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _do__print,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__709: | |
.asciz ")" | |
.text | |
movl $___L__709,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__707 | |
___L__706: | |
movl __3Cfixed_3E,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__710 | |
.data | |
___L__712: | |
.asciz "Fixed(" | |
.text | |
movl $___L__712,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _do__print,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__713: | |
.asciz ")" | |
.text | |
movl $___L__713,%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__711 | |
___L__710: | |
movl __3Csubr_3E,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__714 | |
.data | |
___L__716: | |
.asciz "Subr(%s)" | |
.text | |
movl $___L__716,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__715 | |
___L__714: | |
.data | |
___L__717: | |
.asciz "<type:%d>" | |
.text | |
movl $___L__717,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__715: | |
___L__711: | |
___L__707: | |
___L__703: | |
___L__695: | |
___L__679: | |
___L__676: | |
___L__656: | |
___L__653: | |
___L__650: | |
addl $56,%esp | |
leave | |
ret | |
## defn k_read | |
.text | |
___L__718: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
jmp ___L__720 | |
___L__719: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _getc_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _is__blank,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__721 | |
movl $0,%eax | |
jmp ___L__722 | |
___L__721: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $63,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__723 | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__char,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__724 | |
___L__723: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $45,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__726 | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _ungetc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl _is__digit10,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__728 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__number,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__729 | |
___L__728: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__symbol,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__729: | |
jmp ___L__725 | |
jmp ___L__727 | |
___L__726: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $39,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__730 | |
movl _s__quote,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__quote,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__731 | |
___L__730: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $96,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__732 | |
movl _s__quasiquote,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__quote,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__733 | |
___L__732: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $44,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__734 | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $64,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__736 | |
movl _s__unquote__splicing,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,28(%esp) | |
movl _read__quote,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__737 | |
___L__736: | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _ungetc_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _s__unquote,%eax | |
movl %eax,24(%esp) | |
movl _read__quote,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__737: | |
jmp ___L__725 | |
jmp ___L__735 | |
___L__734: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _is__letter,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__738 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__symbol,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__739 | |
___L__738: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $40,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__740 | |
movl $41,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__list,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__741 | |
___L__740: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $41,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__742 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _ungetc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _EOF,%eax | |
jmp ___L__725 | |
jmp ___L__743 | |
___L__742: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $91,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__744 | |
movl $93,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__list,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__745 | |
___L__744: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $93,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__746 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _ungetc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _EOF,%eax | |
jmp ___L__725 | |
jmp ___L__747 | |
___L__746: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $123,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__748 | |
movl $125,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__list,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__749 | |
___L__748: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $125,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__750 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _ungetc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _EOF,%eax | |
jmp ___L__725 | |
jmp ___L__751 | |
___L__750: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _is__digit10,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__752 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _read__number,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__753 | |
___L__752: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $59,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__754 | |
jmp ___L__757 | |
___L__756: | |
___L__757: | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl %eax,20(%esp) | |
movl $10,%eax | |
cmpl 20(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__758 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $13,%eax | |
cmpl 20(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__758 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _EOF,%eax | |
cmpl 20(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
___L__758: | |
cmpl $0,%eax | |
jne ___L__756 | |
jmp ___L__755 | |
___L__754: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $34,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__759 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__string,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__725 | |
jmp ___L__760 | |
___L__759: | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
cmpl 24(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__761 | |
movl _EOF,%eax | |
jmp ___L__725 | |
jmp ___L__762 | |
___L__761: | |
.data | |
___L__763: | |
.asciz "illegal character: %c" | |
.text | |
movl $___L__763,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _fatal1,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__762: | |
___L__760: | |
___L__755: | |
___L__753: | |
___L__751: | |
___L__749: | |
___L__747: | |
___L__745: | |
___L__743: | |
___L__741: | |
___L__739: | |
___L__735: | |
___L__733: | |
___L__731: | |
___L__727: | |
___L__724: | |
___L__722: | |
___L__720: | |
movl $1,%eax | |
cmpl $0,%eax | |
jne ___L__719 | |
___L__725: | |
addl $40,%esp | |
leave | |
ret | |
## defn read_quote | |
.text | |
___L__764: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl _k__read,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _EOF,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__765 | |
.data | |
___L__766: | |
.asciz "EOF while reading quoted literal" | |
.text | |
movl $___L__766,%eax | |
movl %eax,20(%esp) | |
movl _fatal,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__765: | |
leal 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
leal 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn read_list | |
.text | |
___L__767: | |
## frame 16 24 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__push__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__push__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
jmp ___L__769 | |
___L__768: | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 32(%esp),%eax | |
movl %eax,(%ecx) | |
movl %eax,16(%esp) | |
___L__769: | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__read,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl %eax,32(%esp) | |
movl _EOF,%eax | |
cmpl 32(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__770 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _s__dot,%eax | |
cmpl 32(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
___L__770: | |
cmpl $0,%eax | |
jne ___L__768 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl _s__dot,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__771 | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _k__read,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 32(%esp),%eax | |
movl %eax,(%ecx) | |
___L__771: | |
movl %eax,32(%esp) | |
leal 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
leal 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__pop__root,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 32(%esp),%eax | |
movl 68(%esp),%eax | |
movl %eax,32(%esp) | |
movl _getc_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__772 | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
jmp ___L__773 | |
___L__772: | |
.data | |
___L__774: | |
.asciz "missing closing '%c' delimiter while reading list" | |
.text | |
movl $___L__774,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,36(%esp) | |
movl _fatal1,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 36(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__773: | |
addl $56,%esp | |
leave | |
ret | |
## defn read_string | |
.text | |
___L__775: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _new__buffer,%eax | |
call *%eax | |
movl %eax,16(%esp) | |
jmp ___L__777 | |
___L__776: | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _read__char,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _EOF,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__778 | |
.data | |
___L__779: | |
.asciz "unterminated string literal" | |
.text | |
movl $___L__779,%eax | |
movl %eax,24(%esp) | |
movl _fatal,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__778: | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _buffer__append,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__777: | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
movl %eax,20(%esp) | |
movl $34,%eax | |
cmpl 20(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__776 | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl _new_2D_3Cstring_3E,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _buffer__delete,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn read_symbol | |
.text | |
___L__780: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _new__buffer,%eax | |
call *%eax | |
movl %eax,16(%esp) | |
jmp ___L__782 | |
___L__781: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,48(%esp) | |
___L__782: | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _is__letter,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__783 | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl _is__digit10,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__783: | |
cmpl $0,%eax | |
jne ___L__781 | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _ungetc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl _intern,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _buffer__delete,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn read_number | |
.text | |
___L__784: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl _new__buffer,%eax | |
call *%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl $45,%eax | |
cmpl 20(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__785 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _buffer__append,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__785: | |
jmp ___L__787 | |
___L__786: | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__787: | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,24(%esp) | |
movl _is__digit10,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__786 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl $120,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__788 | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
cmpl 24(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__788 | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _buffer__append,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__790 | |
___L__789: | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
___L__790: | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,24(%esp) | |
movl _is__digit16,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__789 | |
___L__788: | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _ungetc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl _buffer__append,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl _strtoul_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl _buffer__delete,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__791 | |
movl 32(%esp),%eax | |
negl %eax | |
jmp ___L__792 | |
___L__791: | |
movl 32(%esp),%eax | |
___L__792: | |
movl %eax,28(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn read_char | |
.text | |
___L__793: | |
## frame 16 28 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $92,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__794 | |
movl 68(%esp),%eax | |
movl %eax,16(%esp) | |
movl _getc_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl $97,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__796 | |
movl $7,%eax | |
jmp ___L__797 | |
___L__796: | |
movl $98,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__798 | |
movl $8,%eax | |
jmp ___L__799 | |
___L__798: | |
movl $102,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__800 | |
movl $12,%eax | |
jmp ___L__801 | |
___L__800: | |
movl $110,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__802 | |
movl $10,%eax | |
jmp ___L__803 | |
___L__802: | |
movl $114,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__804 | |
movl $13,%eax | |
jmp ___L__805 | |
___L__804: | |
movl $116,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__806 | |
movl $9,%eax | |
jmp ___L__807 | |
___L__806: | |
movl $118,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__808 | |
movl $11,%eax | |
jmp ___L__809 | |
___L__808: | |
movl $117,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__810 | |
movl 68(%esp),%eax | |
movl %eax,16(%esp) | |
movl _getc_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,28(%esp) | |
movl _getc_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl _digit__value,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl $8,%eax | |
movl %eax,36(%esp) | |
movl 24(%esp),%eax | |
movl %eax,40(%esp) | |
movl _digit__value,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 36(%esp),%ecx | |
shll %cl,%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl $16,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl %eax,40(%esp) | |
movl _digit__value,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 36(%esp),%ecx | |
shll %cl,%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl $24,%eax | |
movl %eax,36(%esp) | |
movl 16(%esp),%eax | |
movl %eax,40(%esp) | |
movl _digit__value,%eax | |
movl 40(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 36(%esp),%ecx | |
shll %cl,%eax | |
addl 32(%esp),%eax | |
jmp ___L__811 | |
___L__810: | |
movl $120,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__812 | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,24(%esp) | |
movl _is__hexadecimal,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__814 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _digit__value,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,24(%esp) | |
movl _is__hexadecimal,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__816 | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _digit__value,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl $16,%eax | |
movl %eax,20(%esp) | |
movl 28(%esp),%eax | |
mull 20(%esp) | |
addl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _getc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
jmp ___L__817 | |
___L__816: | |
___L__817: | |
jmp ___L__815 | |
___L__814: | |
___L__815: | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _ungetc_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
jmp ___L__813 | |
___L__812: | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl $48,%eax | |
cmpl 28(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__820 | |
movl $55,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
cmpl 28(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__820: | |
cmpl $0,%eax | |
je ___L__818 | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _digit__value,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,20(%esp) | |
movl _is__octal,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__821 | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _digit__value,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $8,%eax | |
movl %eax,24(%esp) | |
movl 28(%esp),%eax | |
mull 24(%esp) | |
addl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
movl %eax,20(%esp) | |
movl _is__octal,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
je ___L__823 | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl _digit__value,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $8,%eax | |
movl %eax,24(%esp) | |
movl 28(%esp),%eax | |
mull 24(%esp) | |
addl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl 68(%esp),%eax | |
movl %eax,20(%esp) | |
movl _getc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,64(%esp) | |
jmp ___L__824 | |
___L__823: | |
___L__824: | |
jmp ___L__822 | |
___L__821: | |
___L__822: | |
movl 64(%esp),%eax | |
movl %eax,20(%esp) | |
movl 68(%esp),%eax | |
movl %eax,24(%esp) | |
movl _ungetc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
jmp ___L__819 | |
___L__818: | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _is__alpha,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__827 | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl _is__digit10,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__827: | |
cmpl $0,%eax | |
je ___L__825 | |
.data | |
___L__828: | |
.asciz "illegal character escape: \\%c" | |
.text | |
movl $___L__828,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl _fatal1,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
jmp ___L__826 | |
___L__825: | |
movl 64(%esp),%eax | |
___L__826: | |
___L__819: | |
___L__813: | |
___L__811: | |
___L__809: | |
___L__807: | |
___L__805: | |
___L__803: | |
___L__801: | |
___L__799: | |
___L__797: | |
jmp ___L__795 | |
___L__794: | |
movl 64(%esp),%eax | |
___L__795: | |
addl $56,%esp | |
leave | |
ret | |
## defn digit_value | |
.text | |
___L__829: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $48,%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__832 | |
movl $57,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__832: | |
cmpl $0,%eax | |
je ___L__830 | |
movl $48,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
subl 16(%esp),%eax | |
jmp ___L__831 | |
___L__830: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $97,%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__835 | |
movl $122,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__835: | |
cmpl $0,%eax | |
je ___L__833 | |
movl $10,%eax | |
movl %eax,16(%esp) | |
movl $97,%eax | |
subl 16(%esp),%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
subl 16(%esp),%eax | |
jmp ___L__834 | |
___L__833: | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $65,%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__838 | |
movl $90,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
cmpl 16(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__838: | |
cmpl $0,%eax | |
je ___L__836 | |
movl $10,%eax | |
movl %eax,16(%esp) | |
movl $65,%eax | |
subl 16(%esp),%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
subl 16(%esp),%eax | |
jmp ___L__837 | |
___L__836: | |
.data | |
___L__839: | |
.asciz "illegal digit in character escape" | |
.text | |
movl $___L__839,%eax | |
movl %eax,16(%esp) | |
movl _fatal,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__837: | |
___L__834: | |
___L__831: | |
addl $40,%esp | |
leave | |
ret | |
## defn is_hexadecimal | |
.text | |
___L__840: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $48,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__842 | |
movl $57,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__842: | |
cmpl $0,%eax | |
jne ___L__841 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $97,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__843 | |
movl $102,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__843: | |
cmpl $0,%eax | |
jne ___L__841 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $65,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__844 | |
movl $70,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__844: | |
___L__841: | |
addl $24,%esp | |
leave | |
ret | |
## defn is_octal | |
.text | |
___L__845: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $48,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__846 | |
movl $55,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__846: | |
addl $24,%esp | |
leave | |
ret | |
## defn intern | |
.text | |
___L__847: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl _symbols,%eax | |
movl %eax,16(%esp) | |
jmp ___L__849 | |
___L__848: | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 64(%esp),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl _strcmp_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
cmpl $0,%eax | |
jne ___L__850 | |
movl 20(%esp),%eax | |
jmp ___L__851 | |
___L__850: | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
___L__849: | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__852 | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
andl 28(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__852 | |
movl $-1,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl __3Cpair_3E,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__852: | |
cmpl $0,%eax | |
jne ___L__848 | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Csymbol_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
leal 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__push__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _symbols,%eax | |
movl %eax,28(%esp) | |
movl _new_2D_3Cpair_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,_symbols | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
leal 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__pop__root,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 28(%esp),%eax | |
___L__851: | |
addl $56,%esp | |
leave | |
ret | |
## defn buffer_contents | |
.text | |
___L__853: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl _buffer__append,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
subl 20(%esp),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn buffer_append_all | |
.text | |
___L__854: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
jmp ___L__856 | |
___L__855: | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl %eax,28(%esp) | |
movl _buffer__append,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl $1,%eax | |
addl 28(%esp),%eax | |
movl %eax,16(%esp) | |
___L__856: | |
movl 16(%esp),%eax | |
movl %eax,28(%esp) | |
movl 52(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx),%ecx | |
xorl %eax,%eax | |
movb (%ecx),%al | |
movl %eax,20(%esp) | |
cmpl $0,%eax | |
jne ___L__855 | |
addl $40,%esp | |
leave | |
ret | |
## defn buffer_append | |
.text | |
___L__857: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $2,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__858 | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _buffer__grow,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__858: | |
movl $2,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 48(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx),%ecx | |
movl 20(%esp),%eax | |
movb %al,(%ecx) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
addl 20(%esp),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 48(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
addl $40,%esp | |
leave | |
ret | |
## defn buffer_grow | |
.text | |
___L__859: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 64(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
mull 20(%esp) | |
movl %eax,20(%esp) | |
movl _malloc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _memcpy_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $0,%eax | |
movl %eax,32(%esp) | |
movl 64(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl _free_24stub,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 32(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl $2,%eax | |
mull 32(%esp) | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 64(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 32(%esp),%eax | |
movl %eax,(%ecx) | |
addl $56,%esp | |
leave | |
ret | |
## defn buffer_delete | |
.text | |
___L__860: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl _free_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _free_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new_buffer | |
.text | |
___L__861: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $12,%eax | |
movl %eax,16(%esp) | |
movl _malloc_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $32,%eax | |
movl %eax,20(%esp) | |
movl _malloc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $32,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn is_letter | |
.text | |
___L__862: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $33,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $35,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__864 | |
movl $38,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__864: | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $42,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__865 | |
movl $47,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__865: | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $58,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $60,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__866 | |
movl $90,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__866: | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $92,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $94,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $95,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $97,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__867 | |
movl $122,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__867: | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $124,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__863 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $126,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__863: | |
addl $24,%esp | |
leave | |
ret | |
## defn is_alpha | |
.text | |
___L__868: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $97,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__870 | |
movl $122,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__870: | |
cmpl $0,%eax | |
jne ___L__869 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $65,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__871 | |
movl $90,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__871: | |
___L__869: | |
addl $24,%esp | |
leave | |
ret | |
## defn is_digit16 | |
.text | |
___L__872: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $48,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__874 | |
movl $57,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__874: | |
cmpl $0,%eax | |
jne ___L__873 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $97,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__875 | |
movl $102,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__875: | |
cmpl $0,%eax | |
jne ___L__873 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $65,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__876 | |
movl $70,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__876: | |
___L__873: | |
addl $24,%esp | |
leave | |
ret | |
## defn is_digit10 | |
.text | |
___L__877: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $48,%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__878 | |
movl $57,%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
___L__878: | |
addl $24,%esp | |
leave | |
ret | |
## defn is_blank | |
.text | |
___L__879: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $32,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__880 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $9,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__880 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $10,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__880 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $11,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__880 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $12,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__880 | |
movl 32(%esp),%eax | |
movl %eax,0(%esp) | |
movl $13,%eax | |
cmpl 0(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__880: | |
addl $24,%esp | |
leave | |
ret | |
## defn set_tail | |
## defn get_tail | |
## defn get_head | |
## defn get_long | |
## defn put | |
## defn get | |
## defn type_check_fail | |
.text | |
___L__881: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__882: | |
.asciz "illegal type: expected %d got %d" | |
.text | |
movl $___L__882,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl 52(%esp),%eax | |
movl %eax,24(%esp) | |
movl _fatal2,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn get-type | |
## defn is | |
## defn new-<subr> | |
.text | |
___L__883: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Csubr_3E,%eax | |
movl %eax,16(%esp) | |
movl $8,%eax | |
movl %eax,20(%esp) | |
movl _new_2Dbits,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<fixed> | |
.text | |
___L__884: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Cfixed_3E,%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<form> | |
.text | |
___L__885: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Cform_3E,%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<expr> | |
.text | |
___L__886: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Cexpr_3E,%eax | |
movl %eax,16(%esp) | |
movl $8,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<array> | |
.text | |
___L__887: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Carray_3E,%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl __3C__array_3E,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,24(%esp) | |
movl $4,%eax | |
mull 24(%esp) | |
movl %eax,24(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,16(%esp) | |
movl 20(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 24(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,24(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__pop__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 24(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<pair> | |
.text | |
___L__888: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Cpair_3E,%eax | |
movl %eax,16(%esp) | |
movl $8,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<symbol> | |
.text | |
___L__889: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Csymbol_3E,%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl _new_2Dbits,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _strdup_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<string> | |
.text | |
___L__890: | |
## frame 16 20 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl _strlen_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl ___new_2D_3Cstring_3E,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl %eax,32(%esp) | |
movl _memcpy_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl 20(%esp),%eax | |
addl $56,%esp | |
leave | |
ret | |
## defn _new-<string> | |
.text | |
___L__891: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Cstring_3E,%eax | |
movl %eax,16(%esp) | |
movl $8,%eax | |
movl %eax,20(%esp) | |
movl _new_2Doops,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
leal 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__push__root,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new_2D_3Clong_3E,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
addl 16(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__malloc__atomic,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
leal 20(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__pop__root,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-<long> | |
.text | |
___L__892: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl __3Clong_3E,%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl _new_2Dbits,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 16(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-oops | |
.text | |
___L__893: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__malloc,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn new-bits | |
.text | |
___L__894: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 52(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__malloc__atomic,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl $-1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn opt_verbose | |
## defn f_let | |
## defn f_lambda | |
## defn f_quote | |
## defn f_set | |
## defn s_applicators | |
## defn s_evaluators | |
## defn s_encoders | |
## defn s_expanders | |
## defn s_unquote_splicing | |
## defn s_unquote | |
## defn s_quasiquote | |
## defn s_quote | |
## defn s_let | |
## defn s_lambda | |
## defn s_set | |
## defn s_dot | |
## defn s_t | |
## defn applicators | |
## defn evaluators | |
## defn encoders | |
## defn expanders | |
## defn globals | |
## defn symbols | |
## defn <subr> | |
## defn <fixed> | |
## defn <form> | |
## defn <expr> | |
## defn <array> | |
## defn <_array> | |
## defn <pair> | |
## defn <symbol> | |
## defn <string> | |
## defn <long> | |
## defn <undefined> | |
## defn EOF | |
## defn fscanf | |
## defn fflush | |
## defn fclose | |
## defn fdopen | |
## defn fopen | |
## defn ungetc | |
## defn putc | |
## defn getc | |
## defn strtoul | |
## defn strdup | |
## defn strcmp | |
## defn strlen | |
## defn gc_gcollect | |
.text | |
___L__895: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,16(%esp) | |
jmp ___L__897 | |
___L__896: | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _gc__roots,%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl _gc__mark__and__trace,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
addl 20(%esp),%eax | |
movl %eax,16(%esp) | |
___L__897: | |
movl _gc__root__count,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
cmpl 20(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__896 | |
movl _gc__sweep,%eax | |
call *%eax | |
movl $0,%eax | |
movl %eax,_gc__alloc__count | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_mark_and_trace | |
.text | |
___L__898: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
cmpl $0,%eax | |
je ___L__899 | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
andl 16(%esp),%eax | |
cmpl $0,%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__899 | |
movl $16,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
subl 16(%esp),%eax | |
movl %eax,16(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl $0,%eax | |
movl $4,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__900 | |
movl $4,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
orl 24(%esp),%eax | |
movl %eax,24(%esp) | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 24(%esp),%eax | |
movl %eax,(%ecx) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 20(%esp),%eax | |
andl 24(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__901 | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 24(%esp),%ecx | |
shrl %cl,%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
jmp ___L__903 | |
___L__902: | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 24(%esp),%eax | |
subl 28(%esp),%eax | |
movl %eax,24(%esp) | |
movl $0,%eax | |
movl 24(%esp),%eax | |
movl %eax,28(%esp) | |
movl 48(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl _gc__mark__and__trace,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__903: | |
movl 24(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__902 | |
___L__901: | |
___L__900: | |
___L__899: | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_sweep | |
.text | |
___L__904: | |
## frame 0 28 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl $0,%eax | |
movl _gc__memory__base,%eax | |
movl %eax,0(%esp) | |
movl $0,%eax | |
movl %eax,4(%esp) | |
movl $0,%eax | |
movl %eax,8(%esp) | |
movl $0,%eax | |
movl %eax,12(%esp) | |
jmp ___L__906 | |
___L__905: | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl 0(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
andl 20(%esp),%eax | |
cmpl $0,%eax | |
je ___L__907 | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 0(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 8(%esp),%eax | |
addl 20(%esp),%eax | |
movl %eax,8(%esp) | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 4(%esp),%eax | |
addl 20(%esp),%eax | |
movl %eax,4(%esp) | |
movl $4,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
xorl 20(%esp),%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 0(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
jmp ___L__908 | |
___L__907: | |
movl $0,%eax | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl 0(%esp),%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl 12(%esp),%eax | |
addl 20(%esp),%eax | |
movl %eax,12(%esp) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 0(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
___L__908: | |
movl $2,%eax | |
movl %eax,16(%esp) | |
movl 0(%esp),%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,0(%esp) | |
movl %eax,16(%esp) | |
movl _gc__memory__base,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__909 | |
movl $0,%eax | |
movl %eax,0(%esp) | |
___L__909: | |
___L__906: | |
movl 0(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__905 | |
movl 4(%esp),%eax | |
movl %eax,_gc__objects__live | |
movl 8(%esp),%eax | |
movl %eax,_gc__bytes__used | |
movl 12(%esp),%eax | |
movl %eax,_gc__bytes__free | |
movl $0,%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_malloc | |
.text | |
___L__910: | |
## frame 16 32 48 64 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $56,%esp | |
movl 64(%esp),%eax | |
movl %eax,16(%esp) | |
movl $3,%eax | |
addl 16(%esp),%eax | |
movl %eax,16(%esp) | |
movl $-4,%eax | |
andl 16(%esp),%eax | |
movl %eax,64(%esp) | |
movl _gc__frequency,%eax | |
movl %eax,16(%esp) | |
movl _gc__alloc__count,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__911 | |
movl _gc__gcollect,%eax | |
call *%eax | |
___L__911: | |
movl $2,%eax | |
movl %eax,16(%esp) | |
movl _gc__memory__last,%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $16,%eax | |
movl %eax,24(%esp) | |
movl 64(%esp),%eax | |
addl 24(%esp),%eax | |
movl %eax,24(%esp) | |
jmp ___L__913 | |
___L__912: | |
jmp ___L__915 | |
___L__914: | |
___L__915: | |
movl $0,%eax | |
movl $1,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
movl $0,%eax | |
cmpl 28(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__916 | |
movl $0,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,28(%esp) | |
jmp ___L__919 | |
___L__918: | |
movl $2,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl $2,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl $2,%eax | |
movl %eax,40(%esp) | |
movl 20(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl $16,%eax | |
addl 36(%esp),%eax | |
movl %eax,36(%esp) | |
movl 28(%esp),%eax | |
addl 36(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 20(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl %eax,28(%esp) | |
movl _gc__memory__last,%eax | |
movl %eax,36(%esp) | |
movl 32(%esp),%eax | |
cmpl 36(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__920 | |
movl 20(%esp),%eax | |
movl %eax,_gc__memory__last | |
___L__920: | |
___L__919: | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl $2,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl 32(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__921 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl $16,%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl $2,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__921: | |
cmpl $0,%eax | |
jne ___L__918 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 24(%esp),%eax | |
cmpl 32(%esp),%eax | |
setl %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__924 | |
movl 28(%esp),%eax | |
movl %eax,32(%esp) | |
movl 64(%esp),%eax | |
cmpl 32(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
___L__924: | |
cmpl $0,%eax | |
je ___L__922 | |
movl $0,%eax | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl 28(%esp),%eax | |
cmpl 32(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__925 | |
movl 24(%esp),%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl $0,%eax | |
movl $16,%eax | |
movl %eax,36(%esp) | |
movl 64(%esp),%eax | |
addl 36(%esp),%eax | |
movl %eax,36(%esp) | |
movl 28(%esp),%eax | |
subl 36(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,36(%esp) | |
movl $1,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl $2,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,36(%esp) | |
movl $2,%eax | |
movl %eax,40(%esp) | |
movl 32(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl 64(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 20(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl $2,%eax | |
movl %eax,40(%esp) | |
movl 20(%esp),%eax | |
movl 40(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 36(%esp),%eax | |
movl %eax,(%ecx) | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
___L__925: | |
movl $1,%eax | |
movl %eax,32(%esp) | |
movl $1,%eax | |
movl %eax,36(%esp) | |
movl 20(%esp),%eax | |
movl 36(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 32(%esp),%eax | |
movl %eax,(%ecx) | |
movl 20(%esp),%eax | |
movl %eax,_gc__memory__last | |
movl $0,%eax | |
movl $16,%eax | |
movl %eax,32(%esp) | |
movl 20(%esp),%eax | |
addl 32(%esp),%eax | |
movl %eax,32(%esp) | |
movl 32(%esp),%eax | |
movl %eax,36(%esp) | |
movl $0,%eax | |
movl %eax,40(%esp) | |
movl 28(%esp),%eax | |
movl %eax,44(%esp) | |
movl _memset_24stub,%eax | |
movl 36(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 40(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 44(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,44(%esp) | |
movl _gc__alloc__count,%eax | |
addl 44(%esp),%eax | |
movl %eax,_gc__alloc__count | |
movl 32(%esp),%eax | |
jmp ___L__926 | |
jmp ___L__923 | |
___L__922: | |
___L__923: | |
jmp ___L__917 | |
___L__916: | |
___L__917: | |
movl $2,%eax | |
movl %eax,28(%esp) | |
movl 20(%esp),%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
cmpl 28(%esp),%eax | |
setne %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__914 | |
movl 64(%esp),%eax | |
movl %eax,28(%esp) | |
movl $16,%eax | |
addl 28(%esp),%eax | |
movl %eax,28(%esp) | |
movl _gc__quantum,%eax | |
movl %eax,32(%esp) | |
movl _max,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 32(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,32(%esp) | |
movl _gc__grow__memory,%eax | |
movl 32(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__913: | |
movl $1,%eax | |
cmpl $0,%eax | |
jne ___L__912 | |
___L__926: | |
addl $56,%esp | |
leave | |
ret | |
## defn gc_malloc_atomic | |
.text | |
___L__927: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__malloc,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $3,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl $16,%eax | |
movl %eax,28(%esp) | |
movl 16(%esp),%eax | |
subl 28(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_size | |
.text | |
___L__928: | |
## frame 0 8 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl $0,%eax | |
movl %eax,0(%esp) | |
movl $16,%eax | |
movl %eax,4(%esp) | |
movl 32(%esp),%eax | |
subl 4(%esp),%eax | |
movl 0(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
addl $24,%esp | |
leave | |
ret | |
## defn gc_grow_memory | |
.text | |
___L__929: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _new__memory__block,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl $2,%eax | |
movl %eax,20(%esp) | |
movl _gc__memory__last,%eax | |
movl 20(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl _gc__memory__last,%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_pop_root | |
.text | |
___L__930: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _gc__root__count,%eax | |
cmpl $0,%eax | |
jne ___L__931 | |
.data | |
___L__932: | |
.asciz "root table underflow" | |
.text | |
movl $___L__932,%eax | |
movl %eax,16(%esp) | |
movl _fatal,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__931: | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl _gc__root__count,%eax | |
subl 16(%esp),%eax | |
movl %eax,_gc__root__count | |
movl $0,%eax | |
movl _gc__root__count,%eax | |
movl %eax,16(%esp) | |
movl _gc__roots,%eax | |
movl 16(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl (%ecx),%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__933 | |
.data | |
___L__934: | |
.asciz "non-lifo root" | |
.text | |
movl $___L__934,%eax | |
movl %eax,16(%esp) | |
movl _fatal,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__933: | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_push_root | |
.text | |
___L__935: | |
## frame 16 16 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _gc__root__max,%eax | |
movl %eax,16(%esp) | |
movl _gc__root__count,%eax | |
cmpl 16(%esp),%eax | |
sete %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__936 | |
movl $32,%eax | |
movl %eax,16(%esp) | |
movl _gc__root__max,%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
mull 20(%esp) | |
movl %eax,20(%esp) | |
movl _max,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,_gc__root__max | |
movl %eax,20(%esp) | |
movl $4,%eax | |
mull 20(%esp) | |
movl %eax,20(%esp) | |
movl _malloc_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl _gc__roots,%eax | |
movl %eax,24(%esp) | |
movl _gc__root__count,%eax | |
movl %eax,28(%esp) | |
movl $4,%eax | |
mull 28(%esp) | |
movl %eax,28(%esp) | |
movl _memcpy_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 28(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
movl _gc__roots,%eax | |
cmpl $0,%eax | |
je ___L__937 | |
movl _gc__roots,%eax | |
movl %eax,28(%esp) | |
movl _free_24stub,%eax | |
movl 28(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__937: | |
movl 20(%esp),%eax | |
movl %eax,_gc__roots | |
___L__936: | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _gc__root__count,%eax | |
movl %eax,28(%esp) | |
movl _gc__roots,%eax | |
movl 28(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl _gc__root__count,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
addl 20(%esp),%eax | |
movl %eax,_gc__root__count | |
addl $40,%esp | |
leave | |
ret | |
## defn gc_initialise | |
.text | |
___L__938: | |
## frame 16 4 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _gc__quantum,%eax | |
movl %eax,16(%esp) | |
movl _new__memory__block,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
movl %eax,_gc__memory__base | |
movl 16(%esp),%eax | |
movl %eax,_gc__memory__last | |
addl $40,%esp | |
leave | |
ret | |
## defn new_memory_block | |
.text | |
___L__939: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl _malloc_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl %eax,16(%esp) | |
movl 16(%esp),%eax | |
cmpl $0,%eax | |
jne ___L__940 | |
.data | |
___L__941: | |
.asciz "out of memory" | |
.text | |
movl $___L__941,%eax | |
movl %eax,20(%esp) | |
movl _fatal,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__940: | |
movl $16,%eax | |
movl %eax,20(%esp) | |
movl 48(%esp),%eax | |
subl 20(%esp),%eax | |
movl %eax,20(%esp) | |
movl $0,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl %eax,20(%esp) | |
movl $1,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl $2,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl 24(%esp),%ecx | |
leal (%eax,%ecx,4),%ecx | |
movl 20(%esp),%eax | |
movl %eax,(%ecx) | |
movl $0,%eax | |
movl 16(%esp),%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn k_error | |
## defn fatal2 | |
.text | |
___L__942: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__943: | |
.asciz "\012eval.k: " | |
.text | |
movl $___L__943,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl 56(%esp),%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,8(%esp) | |
call *%eax | |
.data | |
___L__944: | |
.asciz "\012" | |
.text | |
movl $___L__944,%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn fatal1 | |
.text | |
___L__945: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__946: | |
.asciz "\012eval.k: " | |
.text | |
movl $___L__946,%eax | |
movl %eax,16(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl 48(%esp),%eax | |
movl %eax,16(%esp) | |
movl 52(%esp),%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
.data | |
___L__947: | |
.asciz "\012" | |
.text | |
movl $___L__947,%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
movl _die,%eax | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn fatal | |
.text | |
___L__948: | |
## frame 16 8 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
.data | |
___L__949: | |
.asciz "\012eval.k: %s\012" | |
.text | |
movl $___L__949,%eax | |
movl %eax,16(%esp) | |
movl 48(%esp),%eax | |
movl %eax,20(%esp) | |
movl _printf_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl _exit_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn die | |
.text | |
___L__950: | |
## frame 16 12 32 48 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $40,%esp | |
movl _trace__depth,%eax | |
movl %eax,16(%esp) | |
jmp ___L__952 | |
___L__951: | |
.data | |
___L__953: | |
.asciz "%3d: " | |
.text | |
movl $___L__953,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
movl %eax,24(%esp) | |
movl _printf_24stub,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 24(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl _trace__stack,%eax | |
movl %eax,24(%esp) | |
movl 16(%esp),%eax | |
movl %eax,20(%esp) | |
movl _k__array__at,%eax | |
movl 24(%esp),%ecx | |
movl %ecx,0(%esp) | |
movl 20(%esp),%ecx | |
movl %ecx,4(%esp) | |
call *%eax | |
movl %eax,20(%esp) | |
movl _k__dumpln,%eax | |
movl 20(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
___L__952: | |
movl $1,%eax | |
movl %eax,20(%esp) | |
movl 16(%esp),%eax | |
subl 20(%esp),%eax | |
movl %eax,16(%esp) | |
movl %eax,20(%esp) | |
movl $0,%eax | |
cmpl 20(%esp),%eax | |
setle %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
jne ___L__951 | |
movl $1,%eax | |
movl %eax,16(%esp) | |
movl _exit_24stub,%eax | |
movl 16(%esp),%ecx | |
movl %ecx,0(%esp) | |
call *%eax | |
addl $40,%esp | |
leave | |
ret | |
## defn trace_depth | |
## defn trace_stack | |
## defn max | |
.text | |
___L__954: | |
## frame 0 4 16 32 | |
pushl %ebp | |
movl %esp,%ebp | |
subl $24,%esp | |
movl 36(%esp),%eax | |
movl %eax,0(%esp) | |
movl 32(%esp),%eax | |
cmpl 0(%esp),%eax | |
setg %al | |
movzbl %al,%eax | |
cmpl $0,%eax | |
je ___L__955 | |
movl 32(%esp),%eax | |
jmp ___L__956 | |
___L__955: | |
movl 36(%esp),%eax | |
___L__956: | |
addl $24,%esp | |
leave | |
ret | |
## defn <header>-flags-used+atom | |
## defn <header>-flags-mark | |
## defn <header>-flags-atom | |
## defn <header>-flags-used | |
## defn size-of-structure | |
## defn gc_collection_count | |
## defn gc_alloc_count | |
## defn gc_memory_last | |
## defn gc_memory_base | |
## defn gc_root_max | |
## defn gc_root_count | |
## defn gc_roots | |
## defn gc_bytes_free | |
## defn gc_bytes_used | |
## defn gc_objects_live | |
## defn gc_frequency | |
## defn gc_quantum | |
## defn stderr | |
## defn sprintf | |
## defn fprintf | |
## defn printf | |
## defn memcpy | |
## defn memset | |
## defn free | |
## defn malloc | |
## defn exit | |
## defn abort | |
.data | |
.globl _define_2Dfsubr | |
_define_2Dfsubr: | |
.long ___L__86 | |
.text | |
.data | |
.globl _define_2Dsubr | |
_define_2Dsubr: | |
.long ___L__87 | |
.text | |
.data | |
.globl _repl__stream | |
_repl__stream: | |
.long ___L__88 | |
.text | |
.data | |
.globl _subr__current__environment | |
_subr__current__environment: | |
.long ___L__100 | |
.text | |
.data | |
.globl _subr__long__string | |
_subr__long__string: | |
.long ___L__101 | |
.text | |
.data | |
.globl _subr__symbol__string | |
_subr__symbol__string: | |
.long ___L__108 | |
.text | |
.data | |
.globl _subr__string__symbol | |
_subr__string__symbol: | |
.long ___L__114 | |
.text | |
.data | |
.globl _subr__set__string__at | |
_subr__set__string__at: | |
.long ___L__120 | |
.text | |
.data | |
.globl _subr__string__at | |
_subr__string__at: | |
.long ___L__126 | |
.text | |
.data | |
.globl _subr__string__length | |
_subr__string__length: | |
.long ___L__131 | |
.text | |
.data | |
.globl _subr__set__array__at | |
_subr__set__array__at: | |
.long ___L__134 | |
.text | |
.data | |
.globl _subr__array__at | |
_subr__array__at: | |
.long ___L__138 | |
.text | |
.data | |
.globl _subr__array__length | |
_subr__array__length: | |
.long ___L__142 | |
.text | |
.data | |
.globl _subr__set__oop__at | |
_subr__set__oop__at: | |
.long ___L__143 | |
.text | |
.data | |
.globl _subr__oop__at | |
_subr__oop__at: | |
.long ___L__147 | |
.text | |
.data | |
.globl _subr__cdr | |
_subr__cdr: | |
.long ___L__151 | |
.text | |
.data | |
.globl _subr__car | |
_subr__car: | |
.long ___L__152 | |
.text | |
.data | |
.globl _subr__arrayP | |
_subr__arrayP: | |
.long ___L__153 | |
.text | |
.data | |
.globl _subr__pairP | |
_subr__pairP: | |
.long ___L__156 | |
.text | |
.data | |
.globl _subr__symbolP | |
_subr__symbolP: | |
.long ___L__159 | |
.text | |
.data | |
.globl _subr__stringP | |
_subr__stringP: | |
.long ___L__162 | |
.text | |
.data | |
.globl _subr__type__of | |
_subr__type__of: | |
.long ___L__165 | |
.text | |
.data | |
.globl _subr__allocate | |
_subr__allocate: | |
.long ___L__169 | |
.text | |
.data | |
.globl _subr__form | |
_subr__form: | |
.long ___L__174 | |
.text | |
.data | |
.globl _subr__array | |
_subr__array: | |
.long ___L__175 | |
.text | |
.data | |
.globl _subr__string | |
_subr__string: | |
.long ___L__178 | |
.text | |
.data | |
.globl _subr__cons | |
_subr__cons: | |
.long ___L__181 | |
.text | |
.data | |
.globl _subr__eval | |
_subr__eval: | |
.long ___L__182 | |
.text | |
.data | |
.globl _subr__eval__pair | |
_subr__eval__pair: | |
.long ___L__184 | |
.text | |
.data | |
.globl _evlist | |
_evlist: | |
.long ___L__188 | |
.text | |
.data | |
.globl _subr__eval__symbol | |
_subr__eval__symbol: | |
.long ___L__192 | |
.text | |
.data | |
.globl _subr__apply | |
_subr__apply: | |
.long ___L__200 | |
.text | |
.data | |
.globl _subr__apply__fixed | |
_subr__apply__fixed: | |
.long ___L__202 | |
.text | |
.data | |
.globl _subr__apply__expr | |
_subr__apply__expr: | |
.long ___L__205 | |
.text | |
.data | |
.globl _subr__warn | |
_subr__warn: | |
.long ___L__229 | |
.text | |
.data | |
.globl _subr__print | |
_subr__print: | |
.long ___L__241 | |
.text | |
.data | |
.globl _subr__dump | |
_subr__dump: | |
.long ___L__245 | |
.text | |
.data | |
.globl _subr__exit | |
_subr__exit: | |
.long ___L__249 | |
.text | |
.data | |
.globl _subr__abort | |
_subr__abort: | |
.long ___L__252 | |
.text | |
.data | |
.globl _subr__ne | |
_subr__ne: | |
.long ___L__253 | |
.text | |
.data | |
.globl _subr__eq | |
_subr__eq: | |
.long ___L__266 | |
.text | |
.data | |
.globl _subr__gt | |
_subr__gt: | |
.long ___L__279 | |
.text | |
.data | |
.globl _subr__le | |
_subr__le: | |
.long ___L__294 | |
.text | |
.data | |
.globl _subr__lt | |
_subr__lt: | |
.long ___L__309 | |
.text | |
## form define-relation | |
.data | |
.globl _subr__shr | |
_subr__shr: | |
.long ___L__324 | |
.text | |
.data | |
.globl _subr__shl | |
_subr__shl: | |
.long ___L__338 | |
.text | |
.data | |
.globl _subr__div | |
_subr__div: | |
.long ___L__352 | |
.text | |
.data | |
.globl _subr__mul | |
_subr__mul: | |
.long ___L__366 | |
.text | |
.data | |
.globl _subr__add | |
_subr__add: | |
.long ___L__380 | |
.text | |
.data | |
.globl _subr__bitxor | |
_subr__bitxor: | |
.long ___L__394 | |
.text | |
.data | |
.globl _subr__bitor | |
_subr__bitor: | |
.long ___L__408 | |
.text | |
.data | |
.globl _subr__bitand | |
_subr__bitand: | |
.long ___L__422 | |
.text | |
## form define-binary | |
.data | |
.globl _subr__sub | |
_subr__sub: | |
.long ___L__436 | |
.text | |
.data | |
.globl _arity3 | |
_arity3: | |
.long ___L__461 | |
.text | |
.data | |
.globl _arity2 | |
_arity2: | |
.long ___L__468 | |
.text | |
.data | |
.globl _subr__not | |
_subr__not: | |
.long ___L__474 | |
.text | |
.data | |
.globl _subr__quote | |
_subr__quote: | |
.long ___L__477 | |
.text | |
.data | |
.globl _subr__and | |
_subr__and: | |
.long ___L__478 | |
.text | |
.data | |
.globl _subr__or | |
_subr__or: | |
.long ___L__484 | |
.text | |
.data | |
.globl _subr__if | |
_subr__if: | |
.long ___L__490 | |
.text | |
.data | |
.globl _subr__while | |
_subr__while: | |
.long ___L__496 | |
.text | |
.data | |
.globl _subr__set | |
_subr__set: | |
.long ___L__502 | |
.text | |
.data | |
.globl _subr__let | |
_subr__let: | |
.long ___L__509 | |
.text | |
.data | |
.globl _subr__lambda | |
_subr__lambda: | |
.long ___L__522 | |
.text | |
.data | |
.globl _subr__define | |
_subr__define: | |
.long ___L__523 | |
.text | |
.data | |
.globl _k__apply | |
_k__apply: | |
.long ___L__529 | |
.text | |
.data | |
.globl _k__eval | |
_k__eval: | |
.long ___L__540 | |
.text | |
.data | |
.globl _k__encode | |
_k__encode: | |
.long ___L__544 | |
.text | |
.data | |
.globl _enlist | |
_enlist: | |
.long ___L__578 | |
.text | |
.data | |
.globl _k__expand | |
_k__expand: | |
.long ___L__582 | |
.text | |
.data | |
.globl _exlist | |
_exlist: | |
.long ___L__601 | |
.text | |
.data | |
.globl _k__concat | |
_k__concat: | |
.long ___L__605 | |
.text | |
.data | |
.globl _k__set__array__at | |
_k__set__array__at: | |
.long ___L__609 | |
.text | |
.data | |
.globl _k__array__at | |
_k__array__at: | |
.long ___L__614 | |
.text | |
.data | |
.globl _k__array__length | |
_k__array__length: | |
.long ___L__618 | |
.text | |
.data | |
.globl _k__string__length | |
_k__string__length: | |
.long ___L__621 | |
.text | |
.data | |
.globl _k__caddr | |
_k__caddr: | |
.long ___L__622 | |
.text | |
.data | |
.globl _k__cddr | |
_k__cddr: | |
.long ___L__623 | |
.text | |
.data | |
.globl _k__cadr | |
_k__cadr: | |
.long ___L__624 | |
.text | |
.data | |
.globl _k__caar | |
_k__caar: | |
.long ___L__625 | |
.text | |
.data | |
.globl _k__cdr | |
_k__cdr: | |
.long ___L__626 | |
.text | |
.data | |
.globl _k__car | |
_k__car: | |
.long ___L__629 | |
.text | |
.data | |
.globl _k__assq | |
_k__assq: | |
.long ___L__632 | |
.text | |
.data | |
.globl _k__define | |
_k__define: | |
.long ___L__639 | |
.text | |
.data | |
.globl _k__dumpln | |
_k__dumpln: | |
.long ___L__640 | |
.text | |
.data | |
.globl _k__dump | |
_k__dump: | |
.long ___L__642 | |
.text | |
.data | |
.globl _k__println | |
_k__println: | |
.long ___L__643 | |
.text | |
.data | |
.globl _k__print | |
_k__print: | |
.long ___L__645 | |
.text | |
.data | |
.globl _do__print | |
_do__print: | |
.long ___L__646 | |
.text | |
.data | |
.globl _k__read | |
_k__read: | |
.long ___L__718 | |
.text | |
.data | |
.globl _read__quote | |
_read__quote: | |
.long ___L__764 | |
.text | |
.data | |
.globl _read__list | |
_read__list: | |
.long ___L__767 | |
.text | |
.data | |
.globl _read__string | |
_read__string: | |
.long ___L__775 | |
.text | |
.data | |
.globl _read__symbol | |
_read__symbol: | |
.long ___L__780 | |
.text | |
.data | |
.globl _read__number | |
_read__number: | |
.long ___L__784 | |
.text | |
.data | |
.globl _read__char | |
_read__char: | |
.long ___L__793 | |
.text | |
.data | |
.globl _digit__value | |
_digit__value: | |
.long ___L__829 | |
.text | |
.data | |
.globl _is__hexadecimal | |
_is__hexadecimal: | |
.long ___L__840 | |
.text | |
.data | |
.globl _is__octal | |
_is__octal: | |
.long ___L__845 | |
.text | |
.data | |
.globl _intern | |
_intern: | |
.long ___L__847 | |
.text | |
.data | |
.globl _buffer__contents | |
_buffer__contents: | |
.long ___L__853 | |
.text | |
.data | |
.globl _buffer__append__all | |
_buffer__append__all: | |
.long ___L__854 | |
.text | |
.data | |
.globl _buffer__append | |
_buffer__append: | |
.long ___L__857 | |
.text | |
.data | |
.globl _buffer__grow | |
_buffer__grow: | |
.long ___L__859 | |
.text | |
.data | |
.globl _buffer__delete | |
_buffer__delete: | |
.long ___L__860 | |
.text | |
.data | |
.globl _new__buffer | |
_new__buffer: | |
.long ___L__861 | |
.text | |
.data | |
.globl _is__letter | |
_is__letter: | |
.long ___L__862 | |
.text | |
.data | |
.globl _is__alpha | |
_is__alpha: | |
.long ___L__868 | |
.text | |
.data | |
.globl _is__digit16 | |
_is__digit16: | |
.long ___L__872 | |
.text | |
.data | |
.globl _is__digit10 | |
_is__digit10: | |
.long ___L__877 | |
.text | |
.data | |
.globl _is__blank | |
_is__blank: | |
.long ___L__879 | |
.text | |
## form set_tail | |
## form get_tail | |
## form get_head | |
## form get_long | |
## form put | |
## form get | |
.data | |
.globl _type__check__fail | |
_type__check__fail: | |
.long ___L__881 | |
.text | |
## form get-type | |
## form is | |
.data | |
.globl _new_2D_3Csubr_3E | |
_new_2D_3Csubr_3E: | |
.long ___L__883 | |
.text | |
.data | |
.globl _new_2D_3Cfixed_3E | |
_new_2D_3Cfixed_3E: | |
.long ___L__884 | |
.text | |
.data | |
.globl _new_2D_3Cform_3E | |
_new_2D_3Cform_3E: | |
.long ___L__885 | |
.text | |
.data | |
.globl _new_2D_3Cexpr_3E | |
_new_2D_3Cexpr_3E: | |
.long ___L__886 | |
.text | |
.data | |
.globl _new_2D_3Carray_3E | |
_new_2D_3Carray_3E: | |
.long ___L__887 | |
.text | |
.data | |
.globl _new_2D_3Cpair_3E | |
_new_2D_3Cpair_3E: | |
.long ___L__888 | |
.text | |
.data | |
.globl _new_2D_3Csymbol_3E | |
_new_2D_3Csymbol_3E: | |
.long ___L__889 | |
.text | |
.data | |
.globl _new_2D_3Cstring_3E | |
_new_2D_3Cstring_3E: | |
.long ___L__890 | |
.text | |
.data | |
.globl ___new_2D_3Cstring_3E | |
___new_2D_3Cstring_3E: | |
.long ___L__891 | |
.text | |
.data | |
.globl _new_2D_3Clong_3E | |
_new_2D_3Clong_3E: | |
.long ___L__892 | |
.text | |
.data | |
.globl _new_2Doops | |
_new_2Doops: | |
.long ___L__893 | |
.text | |
.data | |
.globl _new_2Dbits | |
_new_2Dbits: | |
.long ___L__894 | |
.text | |
.data | |
_opt__verbose: | |
.long 0 | |
.text | |
.data | |
_f__let: | |
.long 0 | |
.text | |
.data | |
_f__lambda: | |
.long 0 | |
.text | |
.data | |
_f__quote: | |
.long 0 | |
.text | |
.data | |
_f__set: | |
.long 0 | |
.text | |
.data | |
_s__applicators: | |
.long 0 | |
.text | |
.data | |
_s__evaluators: | |
.long 0 | |
.text | |
.data | |
_s__encoders: | |
.long 0 | |
.text | |
.data | |
_s__expanders: | |
.long 0 | |
.text | |
.data | |
_s__unquote__splicing: | |
.long 0 | |
.text | |
.data | |
_s__unquote: | |
.long 0 | |
.text | |
.data | |
_s__quasiquote: | |
.long 0 | |
.text | |
.data | |
_s__quote: | |
.long 0 | |
.text | |
.data | |
_s__let: | |
.long 0 | |
.text | |
.data | |
_s__lambda: | |
.long 0 | |
.text | |
.data | |
_s__set: | |
.long 0 | |
.text | |
.data | |
_s__dot: | |
.long 0 | |
.text | |
.data | |
_s__t: | |
.long 0 | |
.text | |
.data | |
_applicators: | |
.long 0 | |
.text | |
.data | |
_evaluators: | |
.long 0 | |
.text | |
.data | |
_encoders: | |
.long 0 | |
.text | |
.data | |
_expanders: | |
.long 0 | |
.text | |
.data | |
_globals: | |
.long 0 | |
.text | |
.data | |
_symbols: | |
.long 0 | |
.text | |
.data | |
__3Csubr_3E: | |
.long 10 | |
.text | |
.data | |
__3Cfixed_3E: | |
.long 9 | |
.text | |
.data | |
__3Cform_3E: | |
.long 8 | |
.text | |
.data | |
__3Cexpr_3E: | |
.long 7 | |
.text | |
.data | |
__3Carray_3E: | |
.long 6 | |
.text | |
.data | |
__3C__array_3E: | |
.long 5 | |
.text | |
.data | |
__3Cpair_3E: | |
.long 4 | |
.text | |
.data | |
__3Csymbol_3E: | |
.long 3 | |
.text | |
.data | |
__3Cstring_3E: | |
.long 2 | |
.text | |
.data | |
__3Clong_3E: | |
.long 1 | |
.text | |
.data | |
__3Cundefined_3E: | |
.long 0 | |
.text | |
.data | |
_EOF: | |
.long -1 | |
.text | |
.section __IMPORT | |
_fscanf_24stub: | |
.type _fscanf, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_fflush_24stub: | |
.type _fflush, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_fclose_24stub: | |
.type _fclose, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_fdopen_24stub: | |
.type _fdopen, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_fopen_24stub: | |
.type _fopen, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_ungetc_24stub: | |
.type _ungetc, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_putc_24stub: | |
.type _putc, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_getc_24stub: | |
.type _getc, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_strtoul_24stub: | |
.type _strtoul, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_strdup_24stub: | |
.type _strdup, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_strcmp_24stub: | |
.type _strcmp, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_strlen_24stub: | |
.type _strlen, %gnu_indirect_function | |
.long 0 | |
.text | |
.data | |
.globl _gc__gcollect | |
_gc__gcollect: | |
.long ___L__895 | |
.text | |
.data | |
.globl _gc__mark__and__trace | |
_gc__mark__and__trace: | |
.long ___L__898 | |
.text | |
.data | |
.globl _gc__sweep | |
_gc__sweep: | |
.long ___L__904 | |
.text | |
.data | |
.globl _gc__malloc | |
_gc__malloc: | |
.long ___L__910 | |
.text | |
.data | |
.globl _gc__malloc__atomic | |
_gc__malloc__atomic: | |
.long ___L__927 | |
.text | |
.data | |
.globl _gc__size | |
_gc__size: | |
.long ___L__928 | |
.text | |
.data | |
.globl _gc__grow__memory | |
_gc__grow__memory: | |
.long ___L__929 | |
.text | |
.data | |
.globl _gc__pop__root | |
_gc__pop__root: | |
.long ___L__930 | |
.text | |
.data | |
.globl _gc__push__root | |
_gc__push__root: | |
.long ___L__935 | |
.text | |
.data | |
.globl _gc__initialise | |
_gc__initialise: | |
.long ___L__938 | |
.text | |
.data | |
.globl _new__memory__block | |
_new__memory__block: | |
.long ___L__939 | |
.text | |
## form k_error | |
.data | |
.globl _fatal2 | |
_fatal2: | |
.long ___L__942 | |
.text | |
.data | |
.globl _fatal1 | |
_fatal1: | |
.long ___L__945 | |
.text | |
.data | |
.globl _fatal | |
_fatal: | |
.long ___L__948 | |
.text | |
.data | |
.globl _die | |
_die: | |
.long ___L__950 | |
.text | |
.data | |
_trace__depth: | |
.long 0 | |
.text | |
.data | |
_trace__stack: | |
.long 0 | |
.text | |
.data | |
.globl _max | |
_max: | |
.long ___L__954 | |
.text | |
## form <header>-flags-used+atom | |
## form <header>-flags-mark | |
## form <header>-flags-atom | |
## form <header>-flags-used | |
## form size-of-structure | |
.data | |
_gc__collection__count: | |
.long 0 | |
.text | |
.data | |
_gc__alloc__count: | |
.long 0 | |
.text | |
.data | |
_gc__memory__last: | |
.long 0 | |
.text | |
.data | |
_gc__memory__base: | |
.long 0 | |
.text | |
.data | |
_gc__root__max: | |
.long 0 | |
.text | |
.data | |
_gc__root__count: | |
.long 0 | |
.text | |
.data | |
_gc__roots: | |
.long 0 | |
.text | |
.data | |
_gc__bytes__free: | |
.long 0 | |
.text | |
.data | |
_gc__bytes__used: | |
.long 0 | |
.text | |
.data | |
_gc__objects__live: | |
.long 0 | |
.text | |
.data | |
_gc__frequency: | |
.long 65536 | |
.text | |
.data | |
_gc__quantum: | |
.long 65504 | |
.text | |
.data | |
_stderr: | |
.long 0 | |
.text | |
.section __IMPORT | |
_sprintf_24stub: | |
.type _sprintf, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_fprintf_24stub: | |
.type _fprintf, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_printf_24stub: | |
.type _printf, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_memcpy_24stub: | |
.type _memcpy, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_memset_24stub: | |
.type _memset, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_free_24stub: | |
.type _free, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_malloc_24stub: | |
.type _malloc, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_exit_24stub: | |
.type _exit, %gnu_indirect_function | |
.long 0 | |
.text | |
.section __IMPORT | |
_abort_24stub: | |
.type _abort, %gnu_indirect_function | |
.long 0 | |
.text |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment