paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 09:23:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot to increase size of array in r27146

Browse Source 
git-svn-id: trunk@27174 -
This commit is contained in:
sergei 2014-03-17 21:28:16 +00:00
parent 517f802ccc
commit b32579278b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win32/seh32.inc
View File

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