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

Fixes bugs in dynamic callbacks (MSVC).

Browse source
This commit is contained in:
goffioul 2005-10-17 12:23:23 +00:00
parent 407fe16185
commit 758ba5068c
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/arch/ffi_x86.d
View file

@ -120,7 +120,7 @@ ecl_dynamic_callback_execute(cl_object cbk_info, char *arg_buffer)
{
int mask = 3;
int sp = (size + mask) & ~mask;
arg_buffer += (size+sp);
arg_buffer += (sp);
}
}
@ -153,18 +153,18 @@ INT:
{
register int eax asm("eax");
eax = i;
return;
}
#endif
return;
case ECL_FFI_DOUBLE: {
#ifdef _MSC_VER
__asm fld output.d
#else
{
asm("fldl (%0)" :: "a" (&output.d));
return;
}
#endif
return;
}
case ECL_FFI_FLOAT: {
#ifdef _MSC_VER
@ -172,7 +172,6 @@ INT:
#else
{
asm("flds (%0)" :: "a" (&output.f));
return;
}
#endif
return;