97 |
ML_AllocWrite(msp, 5, msp->ml_linkReg); |
ML_AllocWrite(msp, 5, msp->ml_linkReg); |
98 |
ML_AllocWrite(msp, 6, msp->ml_pc); |
ML_AllocWrite(msp, 6, msp->ml_pc); |
99 |
ML_AllocWrite(msp, 7, msp->ml_exnCont); |
ML_AllocWrite(msp, 7, msp->ml_exnCont); |
100 |
|
/* John (Reppy) says that varReg should not be included here... |
101 |
ML_AllocWrite(msp, 8, msp->ml_varReg); |
ML_AllocWrite(msp, 8, msp->ml_varReg); |
102 |
ML_AllocWrite(msp, 9, msp->ml_calleeSave[0]); |
*/ |
103 |
ML_AllocWrite(msp, 10, msp->ml_calleeSave[1]); |
ML_AllocWrite(msp, 8, msp->ml_calleeSave[0]); |
104 |
ML_AllocWrite(msp, 11, msp->ml_calleeSave[2]); |
ML_AllocWrite(msp, 9, msp->ml_calleeSave[1]); |
105 |
|
ML_AllocWrite(msp, 10, msp->ml_calleeSave[2]); |
106 |
|
|
107 |
return ML_Alloc(msp, 11); |
return ML_Alloc(msp, 10); |
108 |
|
|
109 |
} /* end of MakeResumeCont */ |
} /* end of MakeResumeCont */ |
110 |
|
|
160 |
msp->ml_linkReg = contClosure[4]; |
msp->ml_linkReg = contClosure[4]; |
161 |
msp->ml_pc = contClosure[5]; |
msp->ml_pc = contClosure[5]; |
162 |
msp->ml_exnCont = contClosure[6]; |
msp->ml_exnCont = contClosure[6]; |
163 |
|
/* John says ... |
164 |
msp->ml_varReg = contClosure[7]; |
msp->ml_varReg = contClosure[7]; |
165 |
msp->ml_calleeSave[0] = contClosure[8]; |
*/ |
166 |
msp->ml_calleeSave[1] = contClosure[9]; |
msp->ml_calleeSave[0] = contClosure[7]; |
167 |
msp->ml_calleeSave[2] = contClosure[10]; |
msp->ml_calleeSave[1] = contClosure[8]; |
168 |
|
msp->ml_calleeSave[2] = contClosure[9]; |
169 |
|
|
170 |
} /* end of LoadResumeState */ |
} /* end of LoadResumeState */ |
171 |
|
|