mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-18 20:10:31 -07:00
45 lines
1.1 KiB
C
45 lines
1.1 KiB
C
/* impl.c.ssw3i3: WIN32/INTEL STACK SCANNING
|
|
*
|
|
* $HopeName: MMsrc!ssw3i3.c() $
|
|
* Copyright (C) 1999. Harlequin Group plc. All rights reserved.
|
|
*
|
|
* This scans the stack and fixes the registers which may contain
|
|
* roots. See design.mps.thread-manager
|
|
*
|
|
* The registers edi, esi, ebx are the registers defined to be preserved
|
|
* across function calls and therefore may contain roots.
|
|
* These are pushed on the stack for scanning.
|
|
*
|
|
* ASSUMPTIONS
|
|
*
|
|
* .align: The stack pointer is assumed to be aligned on a word
|
|
* boundary.
|
|
*/
|
|
|
|
|
|
#include "mpm.h"
|
|
|
|
SRCID(ssw3i3, "$HopeName: MMsrc!ssw3i3.c() $");
|
|
|
|
|
|
Res StackScan(ScanState ss, Addr *stackBot)
|
|
{
|
|
Addr *stackTop;
|
|
Res res;
|
|
|
|
__asm {
|
|
push edi /* these registers are the save registers */
|
|
push esi /* and so may contain roots. They are pushed */
|
|
push ebx /* for scanning */
|
|
mov stackTop, esp /* stack pointer */
|
|
}
|
|
|
|
AVER(AddrIsAligned((Addr)stackTop, sizeof(Addr))); /* .align */
|
|
res = TraceScanArea(ss, stackTop, stackBot);
|
|
|
|
__asm {
|
|
add esp, 0xc /* pop 3 registers to restore the stack pointer */
|
|
}
|
|
|
|
return res;
|
|
}
|