Sfoglia il codice sorgente

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

git-svn-id: trunk@34334 -
pierre 9 anni fa
parent
commit
44f00c2bf4
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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}