Explorar o código

* Forgot to increase size of array in r27146

git-svn-id: trunk@27174 -
sergei %!s(int64=11) %!d(string=hai) anos
pai
achega
b32579278b
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/win32/seh32.inc

+ 1 - 1
rtl/win32/seh32.inc

@@ -73,7 +73,7 @@ end;
 procedure fpc_RaiseException(Obj: TObject; AnAddr,AFrame: Pointer); [public,alias: 'FPC_RAISEEXCEPTION']; compilerproc;
 var
   ctx: TContext;
-  args: array[0..3] of PtrUint;
+  args: array[0..4] of PtrUint;
 begin
   ctx.Ebp:=Cardinal(AFrame);
   ctx.Eip:=Cardinal(AnAddr);