我试图设置SEH而不使用try除外
(这是为了我个人的知识,更好地了解SEH如何工作)
(这是为了我个人的知识,更好地了解SEH如何工作)
以下代码不起作用
type
TSeh = packed record
OldSeh:DWORD;
NewSeh:DWORD;
end;
procedure test;
begin
WriteLn('Hello from seh');
end;
var
eu:TSeh;
old_seh:DWORD;
begin
asm
mov eax,fs:[0]
mov old_seh,eax
end;
eu.OldSeh := old_seh;
eu.NewSeh := DWORD(@test);
asm
mov eax,offset eu
mov fs:[0],eax
ret //This will cause an exception because jumps on an invalid memory address
end;
end.
但是这样做
procedure test;
begin
WriteLn('Hello from seh');
end;
begin
asm
push offset test
push fs:[0]
mov fs:[0],esp
ret //This will cause an exception because jumps on an invalid memory address
end;
end.
解决方法
Windows需要所有堆栈帧在系统分配的堆栈内.它还要求堆栈帧在堆栈上按顺序排列.此外,对于异常处理,它需要所有“异常记录”在堆栈上,并且它们链接到一个
通过堆栈内存顺序排列.
通过堆栈内存顺序排列.
在写几个微线程库(http://www.eternallines.com/microthreads)的时候,我在几年前就想出了这一点.