Sven Panne writes:
>
> The problem with this code is the fact that every callback seems
> to eat 8 bytes from the stack:
>
Sigh, thought I'd fixed this - patch at the end.
--Sigbjorn
*** runtime/c-as-asm/PerformIO.lhc 1998/01/09 13:33:03 1.5
--- runtime/c-as-asm/PerformIO.lhc 1998/03/03 17:09:49
***************
*** 119,124 ****
--- 119,126 ----
the Haskell world.
*/
+ #if defined(CONCURRENT) && defined(i386_TARGET_ARCH)
SpB -= BREL(1);
*SpB = (W_)SAVE_esp;
+ #endif
/* Put a World State Token on the B stack */
