mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not pass more than 63 arguments in the C stack.

Browse source
This commit is contained in:
jjgarcia 2008-08-05 14:08:15 +00:00
parent 7c2f63ea47
commit 808927c054
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/arch/apply_x86.d
View file

@ -31,6 +31,10 @@ APPLY(cl_narg n, cl_objectfn fn, cl_object *x)
"andl $-16, %%esp\n\t"
"movl %%ecx, (%%esp)\n\t" /* Then ESP[0] is the number of arguments */
"leal 4(%%esp), %%edi\n\t" /* and the other arguments are copied from ESP[4] on */
"cmpl $63, %%ecx\n\t" /* Copy at most 63 arguments onto the stack */
"jle FOO1\n\t"
"movl $63, %%ecx\n\t"
"FOO1:\n"
"rep\n\t"
"movsl\n\t"
"call *%%eax\n\t" /* At this point the stack must be aligned */
@ -55,6 +59,10 @@ APPLY_fixed(cl_narg n, cl_object (*fn)(), cl_object *x)
"leal (%%esp,%%edx,4), %%esp\n\t"
"andl $-16, %%esp\n\t"
"movl %%esp, %%edi\n\t" /* then the arguments are copied from ESP[0] on */
"cmpl $63, %%ecx\n\t" /* Copy at most 63 arguments onto the stack */
"jle FOO2\n\t"
"movl $63, %%ecx\n\t"
"FOO2:\n"
"rep\n\t"
"movsl\n\t"
"call *%%eax\n\t" /* At this point the stack must be aligned */
@ -81,6 +89,10 @@ APPLY_closure(cl_narg n, cl_objectfn fn, cl_object cl, cl_object *x)
"movl %%ecx, (%%esp)\n\t" /* Then ESP[0] is the number of arguments */
"movl %%edi, 4(%%esp)\n\t" /* ESP[4] is the closure environment */
"leal 8(%%esp), %%edi\n\t" /* and the other arguments are copied from ESP[8] on */
"cmpl $63, %%ecx\n\t" /* Copy at most 63 arguments onto the stack */
"jle FOO3\n\t"
"movl $63, %%ecx\n\t"
"FOO3:\n"
"rep\n\t"
"movsl\n\t"
"call *%%eax\n\t" /* At this point the stack must be aligned */