openbsd-ports/lang/icon/files/openbsd/i386_rswitch.c
1998-10-02 17:10:51 +00:00

29 lines
615 B
C

/*
* This is the co-expression context switch for the Intel 80386
* under Microport Unix System V/386
*/
/*
* coswitch
*/
coswitch(old_cs, new_cs, first)
int *old_cs, *new_cs;
int first;
{
asm(" movl 8(%ebp),%eax");
asm(" movl %esp,0(%eax)");
asm(" movl %ebp,4(%eax)");
asm(" movl 12(%ebp),%eax");
if (first == 0) { /* this is the first activation */
asm(" movl 0(%eax),%esp");
asm(" movl $0,%ebp");
new_context(0, 0);
syserr("interp() returned in coswitch");
}
else {
asm(" movl 0(%eax),%esp");
asm(" movl 4(%eax),%ebp");
}
}