浏览代码

Do not cast @JumpToHandleSignal to a longint, use ptruint type instead

git-svn-id: trunk@34334 -
pierre 9 年之前
父节点
当前提交
44f00c2bf4
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/win64/signals.pp

+ 1 - 1
rtl/win64/signals.pp

@@ -488,7 +488,7 @@ var
                  inc(except_level);
                  {dec(excep^.ContextRecord^.Esp,4);
                  plongint (excep^.ContextRecord^.Esp)^ := longint(excep^.ContextRecord^.rip);}
-                 excep_ContextRecord^.rip:=longint(@JumpToHandleSignal);
+                 excep_ContextRecord^.rip:=ptruint(@JumpToHandleSignal);
                  excep_ExceptionRecord^.ExceptionCode:=0;
                  CallSignal:=0;
 {$ifdef SIGNALS_DEBUG}