结构化异常处理程序和Delphi
发布时间:2020-12-15 03:33:43 所属栏目:大数据 来源:网络整理
导读:我试图设置SEH而不使用try除外 (这是为了我个人的知识,更好地了解SEH如何工作) 以下代码不起作用 type TSeh = packed record OldSeh:DWORD; NewSeh:DWORD; end;procedure test;beginWriteLn('Hello from seh');end;var eu:TSeh; old_seh:DWORD;begin asm mov
我试图设置SEH而不使用try除外
(这是为了我个人的知识,更好地了解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)的时候,我在几年前就想出了这一点. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |