Преглед изворни кода

* Forgot to increase size of array in r27146

git-svn-id: trunk@27174 -
sergei пре 11 година
родитељ
комит
b32579278b
1 измењених фајлова са 1 додато и 1 уклоњено
  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);