blob: 4a9def06792e1129c4bbdf88047b80e4e49b4772 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
/*
* This is the co-expression context switch for the GNU system.
*/
/*
* 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");
}
}
|